




té» 9 JUILLET-AOUT 86 20 FF M 2249 - 09 


20 FF] Belgique 154 FB - Suisse 7 F: 





























VG 8235 : LA REPONSE SYSTEME 


La réponse système Philips, est une offre globale qui comprend 


- L’ordinateur VG 8235 (256 K RAM dont 128 vidéo, lecteur intégré 
de disquettes), 

- Un moniteur monochrome (VS 0040), 

- 4 logiciels sur disquettes (traitement de texte et gestion de 
fiches, ces deux programmes sont interactifs - création 
graphique et MSX-DOS). 

Prix public indicatif au 6/06/86,5 990 F TTC. 


- L’ordinateur VG 8235 (256 K RAM dontl28 vidéo, lecteur intégré 
de disquettes), 

- Un moniteur couleur (VS 0070) haute résolution, 

- 4 logiciels sur disquettes (traitement de texte et gestion de 
fiches, ces deux programmes sont interactifs - création 
graphique et MSX-DOS). 

Prix public indicatif au 6/06/86 ; 7790 F TTC. 
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LES PUCES DE L’EQUIPAGE 

De la conception des carènes à la définition des tactiques de courses, 
l'ordinateur est devenu le nouvel outil indispensable aux marins. 
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C’EST L’ETE 

JEU DE PLAGE 

Testez votre culture informatique. 

Le temps de trouver les réponses aux questions concoctées par notre ami Pépé Louis 
et vous serez dorés à point sur les deux faces. Bonnes vacances ! 
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TOUT NEUF 

PHILIPS VG 8235 : LABELS ET LA BETE 

Pour son nouvel MSX il, Philips prend un nouveau label: NMS (New Media Systems). 
Autant dire que la maison voit loin et qu'elle a bien l'intention d'encastrer sa petite machine 
dans un ensemble audiovisuel. On attend ia suite... 
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LOGICIELS 

LES ROBINSONS DE LA MICRO 

Si l'on vous dépose avec votre machine favorite sur une île déserte, 
quels sont les deux ou trois logiciels que vous emportez ? 

Placés dans la même situation périlleuse, les reporters aventuriers de Micro V.O. 
ont dû se prononcer. Espérons qu'ils ont fait les bons choix 
car on n'est pas prêts de retourner les chercher... 
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JEUX 

Les Stades en folie... Test: Une petite cité bien tranquille 

La sélection et les nouveautés du mois. 

MICROGUIDE 

People (6) - Infos (8) 
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Au paradis rien ne manque. 

AMSTRAD a tout donné à ses deux 
ordinateurs vedettes : 
une unité centrale puissante et compacte, 
un clavier professionnel, un lecteur 
rapide intégré, un écran graphique 
et un prix... AMSTRAD. 

Vous branchez, ça marche. Des centaines 
de programmes sont à votre disposition. 


Pour jouer, pour étudier, pour travailler 
ou pour programmer. 

Plus de 500000 AMSTRAD ont été vendus 
dans le monde en tout juste un an. 

C'est le plus grand succès dans toute 
l'histoire de la micro. 

Vous aussi, entrez librement dans le 
paradis informatique AMSTRAD, et 
laissez la télé familiale aux fans de Dallas. 
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CPC464 nor.o 
CPC4B4 cou! 

tôt 4:4 
CPC61Ê8 nono 
CPCSIE8 cou! 

tôt. 61ES 
PCH32S6 


fmother ? V/H 



* ICPC 464 (64 Ko. lecteur cassette) ** 'CPC 6128 (128 Ko, lecteur disquette. CP/M+) 

- avec moniteur monochrome : 2690 F ttc - avec moniteur monochrome : 4490 F ttc 

— avec moniteur couleur : 3990F ttc — avec moniteur couleur : 5990F ttc. 


Merci de m’envoyer une documentation 
complète sur le CPC 464 et le CPC 6128 

nom:_ 

adresse :_ 


Renvoyez ce coupon à Amstrad France, & 

BP 12 92312 Sèvres cedex O 

Ligne consommateurs : 46.26.08.83 ^ 



LE MORDANT INFORMATIQUE. 


Mendès-France M.C 






































DEPART DE VACANCES 
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AMICROV.O* 

(UN ED1TO, EN QUELQUE SORTE...) 
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où le micro-ordinateur n’était pas encore invente... 
elle sévira encore plus fort à la rentrée • 

D’ici là, BON N ES VACANCES A TOUS. 

Jean-François RUIZ 
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FONDATION 

DIDEROT 

La fondation Diderot a primé les 
lauréats de son concours de lo¬ 
giciels éducatifs lancé au prin¬ 
temps dernier. 

Le premier prix a été attribué à 
Pliage, un logiciel destiné aux 
élèves du technique (tôlerie, 
chaudronnerie, etc.). Il permet 
de simuler l’exécution d’une 
mise en forme de profilés mé¬ 
talliques. Il a été réalisé par 
Fredy Lelong, professeur à 
l’Ecole normale nationale de 
Lille. 

Le deuxième prix revient à 
Etna, jeu éducatif simulant la 
.surveillance des volcans par 
satellites. Son auteur, Alain Gri- 
mauc, est professeur de scien¬ 
ces naturelles à Neuilly. 

Le troisième prix distingue un 
autre logiciel d’enseignement 
technique: L'Atelier (Mad Fa- 
bricator). Il s’agit d’un pro¬ 
gramme d’assistance à l’usi¬ 
nage en atelier. Fonctionnant 
comme un petit système ex¬ 
pert, il traite des difficultés ren¬ 
contrées par un élève en cours 
de fraisage, de tournage ou de 
perçage. Les deux auteurs, 
Jean-Luc Ribeyre et Christian 
Lorirrier, sont profs de micro¬ 
mécanique au LEP de Grand 
Charmont-Montbéliard. 

Ces trois logiciels sont écrits en 
Basic et tournent surTO7-70. 


Montreuil - Le centre X 
2000organise, jusqu’au 
11 juillet, une exposition 
consacrée aux « nouvelles 
images » avec la 
participation de nombreux 
artistes illustrateurs qui ont 
délaissé leurs pinceaux et 
leurs toiles pour 
l’ordinateur. Cela se passe 
au centre Pablo Picasso et 
on se renseigne au ( 1) 48- 
59-55-05. 
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un 
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Pliage est un logiciel éducatif 
qui s’adresse aux élèves du 
technique. Il a été primé par la 
Fondation Diderot. 

FORMATION 

Le centre de formation conti¬ 
nue de l’université Paris-Nord 
ouvre un stage d’éducation/ 
animation informatique. Son 
but est de former et de perfec¬ 
tionner des spécialistes capa¬ 
bles d’animer, de former, d’en¬ 
cadrer et de concevoir des pro¬ 
jets pour les ateliers de micro. 
Ce stage s’adresse aux sala¬ 
riés, aux associations, aux ad¬ 
ministrations et aux deman¬ 
deurs d'emplois. Il peut être 
suivi en congé individuel de for¬ 
mation ou en plan de formation. 
IUT Villetaneuse. Tel.: (1) 48- 
21-61-70, postes 42/44/48. 

ROMAN 
DE CHINE 

D’accord, c’est pas de l’infor¬ 
matique (ou si peu). Mais on 
peut en sortir quelquefois, 
non? D’accord, c’est du copi¬ 
nage. Chine, qui nous rédige 
chaque mois sa rubrique « Mi¬ 
nitel », on l’aime bien. Et alors? 
Et puis justement, sa rubrique 
ce mois : ci, elle a sauté faute de 
place, aiors faut bien compen¬ 
ser... Lorsque le réseau Calva¬ 
dos, pour lequel elle travaille lui 
laisse un peu la paix, Chine 
écrit des romans qui lui res¬ 
semblent: frais, vifs, pétillant 
d’humour... Après L'Année câ¬ 
line, voici Enlève-moi ça tout de 
suite. L’histoire, je vous la laisse 
découvrir. Mais je vous garantis 
que c’est pas triste... (Edition 
Carrère - 252 p. - 68 F). 

Chine, remets 
ton maillot 
tout de 
suite! 
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PÉRIPHÉRIQUES AMSTRAD 

LE PARADIS DES MORDUS 





LE MORDANT INFORMATIQUE. 


Joystick 

Pour piloter tous vos jeux : 149 F ttc 


Interface RS 232 C 

L'accès au monde des télécommunications 
(Minitel, serveur, etc.). 

Pour CPC 464, CPC 664 et CPC 6128: 590 F ttc 


Imprimante DMP 2000 

Imprimante qualité courrier pour CPC 464, 
664 et 6128. 90 polices, 20 à 100 caractères/ 
seconde, alimentation feuille à feuille ou en 
continu: 2290F ttc 


Adaptateur Péritel 

Pour profiter des couleurs de votre téléviseur 
avec les versions monochromes. 

MP 1 pour CPC 464: 390 F ttc 
MP 2 pour CPC 664 et 6128 : 490 F ttc 


— 

Multiplan, le tableur 
bien connu de Microsoft, disponible 
pour le PCW 8256 et le CPC 6128 
à un prix Amstrad 498 P TTC 


D Base II, le système 
de base de données relationnelle très 
performant qui vous permettra de 
construire tous vos fichiers pour 
790 F TTC. 


Crayon optique 

Le dessin direct pour tous les modèles avec 
moniteur couleur: 290F ttc avec logiciel 
graphique 


Souris AMSTRAD 


Le dessin souris et la 
gestion rapide du 
curseur pour 
CPC 464, 664 
et 6128:690 F ttc 


Lecteur de disquette 

(3 pouces, 170 Ko par face) : 

— DDI-1 avec interface pour CPC 464 ou 
CPC 664: 1990 F ttc 

— FD-1 second lecteur pour 
CPC 464, 664 et 6128: 
1590 F ttc 


Synthétiseur vocal 

Faites parler votre CPC 464 ou 664: 390 F ttc 
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Essoukan Mouangue, 
créateur avec Peter Burch 
de la société française 
Mindsoft ; son Système 
Expert tourne sur cinq 
micros. 


A vingt-huit ans, Essoukan 
Mouangue est devenu le 
« Monsieur Intelligence Artifi¬ 
cielle » de la micro-informa¬ 
tique. Incroyablement bavard 
et sympathique, ce Français 
d’origine camerounaise pos¬ 
sède un bagou d’enfer dès 
qu’il s'agit de parler d’I.A. 

Il rêvait déjà d’informatique au 
lycée et c’est avec une TI57 
qu’il a fait ses premières armes. 
Après son Bac il suit les cours 
d’une école privée d’ingénieur 
et passe près d’un an de stage 
chez Thomson. Dans le même 
temps il consacre le plus clair 
de ses nuits à Thérèse... son 
TRS 80, puis à un Atari 800. 
Ses aptitudes à la programma¬ 
tion l’amènent à développer un 
Système expert et sa rencontre 
en 85 avec Peter Burch est dé¬ 
cisive. Ils créent la société 
Mindsoft, 100% française, qui 
se révèle être l’une des plus ac¬ 
tives mondialement dans le do¬ 
maine de l’I.A. Son Système 
Expert tourne rapidement sur 
Macintosh, IBM PC et, plus ré¬ 
cemment sur T09, MSX2 et 
Amstrad. 

L’Education nationale a équipé 
la valise informatique d’une 
version de l’Expert pourThom- 
son. Excellent début pour la 
petite société. Essoukan s’em¬ 
balle encore plus en parlant de 
NEXUS, le projet inédit qu’il ré¬ 
sente comme un système hy¬ 
bride gérant les mécanismes 



du raisonnement. Ce nouveau 
langage expert sera doté d’un 
moteur d’inférence original et 
très puissant qui permettra au 
programmeur comme au no¬ 
vice de créer des bases de 
données intelligentes. Du gâ¬ 
teau! 

Pour ne pas tomber dans le dé- 
lirium mental de l’informaticien 
accroché au clavier comme à 
un boulet de bagnard, Essou¬ 
kan pratique les arts martiaux et 
le yoga dans la philosophie 
Zen. Il s’est fixé pour objectif 
d’arrêter la programmation 
dans deux ans. D’ici là il reste 
une cible de choix pour les 
chasseurs de (grosses) têtes. 
On lui a déjà proposé plus de 
300.000 F pour intégrer une 
boîte importante. Ce succès ne 
l'affecte pas et il préfère l’am¬ 
biance d’une petite société 
comme Mindsoft. Celle-ci vient 
de signer un accord de coédi¬ 
tion avec Infogrames. L’avenir 
est rose pour Essoukan. 


Pépé Louis 


«PUBS» 

SOUS 

SURVEILLANCE 

Les progrès de la technique 
vont-ils faire disparaître la 
« tournée du patron »? Cette 
angoissante question agite les 
« pubs » à travers toute la 
Grande-Bretagne. 

Ronald Belle est le directeur 
des télécommunications du 
groupe Impérial, une société de 
brasseries. Et Monsieur Belle a 
un problème. Il est incapable 
de savoir rapidement combien 
de pintes de bières sont ven¬ 
dues dans les 4000 « pubs » 
que possède son groupe. 

Il espère résoudre ce problème 
grâce aux réseaux de télécom¬ 
munications avancés. Des 
caisses enregistreuses auto¬ 
matiques et peut-être même 
des lecteurs optiques placés 
sur les robinets de bière pres¬ 
sion enregistreront les ventes 
sur un PC, ceci dans tous les 
« pubs ». Pendant la nuit, un 
ordinateur central appellera les 
PC les uns après les autres, en¬ 
registrera leurs informations 
puis en fera un rapport qu’il 
transmettra le matin à chaque 
directeur commercial régional. 
Le but est de contrôler les dé¬ 
bits et de faire livrer automati¬ 


quement les « pubs » avant la 
rupture de bock. 


GROSSBRUDER 

Demoscopie a réalisé une 
étude, dans 11 pays, sur la 
sensibilisation des Européens 
au phénomène informatique. 
De cette étude, il ressort no¬ 
tamment que la R.F.A. est le 
pays le plus sensibilisé à l’infor¬ 
matique. Les Allemands se dé¬ 
marquent néanmoins par l’ap¬ 
préciation négative et la dé¬ 
fiance dont ils témoignent à ce 
sujet : ce sont les plus « résis¬ 
tants » à l’idée d’usage des or¬ 
dinateurs dans le quotidien 
dans les années à venir. Quant 
aux perspectives ouvertes par 
l’informatique, ils sont 4% à les 
approuver contre 12% en Ita¬ 
lie, 13% en Grande-Bretagne 
et 15% en France. 


LES VENTES US 
DANS LE DETAIL 

Aux Etats-Unis, les ventes au 
détail de micro-ordinateurs en 
février 86 se sont réparties 
comme suit: IBM PCAT(14%), 
IBM XT (12%), Apple Mac 
(11%), Apple Ile (6%), Apple 
Ile (5%), Compaq 286 (5%), 
IBM PC (5%), ATT PC 6300 
(5%), Zenith (5%), Compaq 
Destro (4%), Kaypro (4%), 
Compaq portable (3%), le 
reste - un beau gâteau quand 
même - : 21 %. 

Total IBM: 31%, total Apple: 
22%. Qui peut me donner les 
chiffres pour la France? 


L’AGENT 
DEVOYAGES 

L'Agent de voyages, une lettre 
d’information touristique pa¬ 
raissant tous les 1 er et 15 de 
chaque mois, est un journal en¬ 
tièrement composé sur ordina¬ 
teur. Macintosh A.P.I. publica¬ 
tions, la société qui l’édite, a 
mis en place un service de 
consultation pourtoutes les so¬ 
ciétés qui publient des lettres 
d’information internes ou exter¬ 
nes. Elle les fait bénéficier de 
l’expérience développée pour 
la fabrication de l'Agent de 
voyages : programmes de trai¬ 
tement de texte et de mise en 
page sur écran. Renseigne¬ 
ments : (1)42-97-46-60. 










CONCOURS 

MICROV.O. 

FROGGY- 

SOFTWARE 

« La grenouille sur la pomme lit 
Micro V.O. ». C’était la phrase 
qui se cachait dans le texte en 
code ASCII et que cinquante- 
neuf d’entre vous sont parve¬ 
nus à décrypter. Mais l’épreuve 
des pénalties de la question 
subsidiaire ne laisse hélas que 
trois gagnants. C’est la loi du 
genre. Recevront donc la col¬ 
lection complète des softs 
Froggy-Software, Patrick De¬ 
lorme demeurant à Vienne 
(38 200), Jean-Michel Bau- 
drey, de Delle (90 100) et 
Jean-Nicolas Fugier, de Die 
(26 150). Bravo à tous les trois 
en particulier et à tous les autres 
dans l'ensemble. 

LA CHINE 
S’EVEILLE... 

...à l’informatique. Les Chinois 
possèdent aujourd’hui 

130 000 micro-ordinateurs 
contre 7 000 en 1980. Les 
« grosses » machines sont, el¬ 
les, passées pendant la même 


période, de 2 900 à 7 000. 
L’importation de ces machines 
a coûté quelque 200 millions 
de dollars. 

Plus de 100 000 Chinois tra¬ 
vaillent dans l’informatique 
(nombre multiplié par quatre 
depuis 1980). A l’école, 5 000 
enseignants apprennent aux 
élèves du primaire et du secon¬ 
daire l’utilisation des ordina¬ 
teurs. Enfin, toujours selon le 
quotidien de langue anglaise 
China Daily qui cite ces chiffres, 
l’industrie locale a produit le 
Yingha, un super ordinateur 
capable de traiter 100 millions 
d’opérations à la seconde. 


LeClubMICROTELLes 
LILAS recherche pour 
septembre des animateurs 
informatiques (Basic, 
Pascal, Logo) pour sa 
section Jeune et Adulte, 
ainsi qu’un animateur 
connaissant des logiciels- 
professionnels comme 
dBase III, Framework, 
Textor... Envoyez un CVau 
Club MICROTEL Les LILAS, 
Recrutement - 4, rue 
Waldeck Rousseau - 93260 
LES LILAS. 



LESTAUPES 
ROUGES 
VIOLENT UN 
CRAY-ONE 


Selon notre estimé confrère Le 
Parisien Libéré, une « taupe » 
du KGB aurait réussi à pirater le 
système informaticue d’EDF, 
installé à Clamart (Hauts-de- 
Seine). Les Soviétiques se se¬ 
raient ainsi emparés d’informa¬ 
tions top secret concernant la 
sécurité des centrales nucléai¬ 
res occidentales. Ils se seraient 
de plus offerts une balade très 
instructive à I intérieur d’un Cray 
One, l’ordinateur capable d’ef¬ 
fectuer 400 millions d’opéra¬ 
tions à la seconde. EDF, bien 
sûr, dément le vol des informa¬ 
tions qui, selon elle, ne pou¬ 
vaient pas, ce toute façon, évi¬ 


ter la catastrophe de la centrale 
ukrainienne de Tchernobyl, 
trop ancienne pour être 
concernée par les program¬ 
mes de sécurité nucléaire fran¬ 
çais. Quoiqu’il en soit, EDF, qui 
vient d’acquérir un Cray X-MP 
(deux milliards d’informations 
traitées à la seconde), aurait, 
toujours selon Le Parisien Li¬ 
béré, considérablement ren¬ 
forcé les conditions de déli¬ 
vrance du A/isa touristique pour 
la visite de son système infor¬ 
matique. Ceci afin d’empêcher 
que l’un des quelque 200 000 
corsaires soviétiques, spécia¬ 
listes informatiques chargés de 
combler le retard des Russes 
en la matière en piquant les se¬ 
crets de l’Ouest, ne rédicive 
l’exploit. Nous n’aurons qu’une 
seule interrogation: mais que 
fait la police? 




Microfolie’s, c’est plus qu’une sélection des meilleurs matériels et logiciels; c’est un service complet 
(du stock, des conseils, un centre de formation, un service après-vente). 


Pour recevoir le catalogue Microfolie’s, envoyez votre nom, adresse et votre type de matériel + 3 timbres à 2.20 F à 
MICROFOLIE’S, 4, rue André Chénier 78000 Versailles - (1) 30.21.75.01. 


Micxofalu'i, les spécialistes. 
























VACANCES 
ETSTAGES 


USCVIle de France -71-77, rue 
du Théâtre - 75015 Paris. Tél. : 
(1)45-78-27-45. 

L’Informatique 
en Angleterre et initiation aux 
langages fle pointe. Du 5 au 
26 août. Prix 5870 F tout com¬ 
pris. Hébergement dans une 
famille. 

ESTO, 14, rue Clément Marot - 
75008 Paris. Tél. : (1) 47-23- 


Comme tous les ans, à l’appro¬ 
che de l'été, un grand nombre 
de stages sont proposés. Ils in¬ 
téressent petits et grands et of¬ 
frent souvent une activité com¬ 
plémentaire au dénominateur 
commun informatique. Voici ce 
que nous avons trouvé dans la 
boîte aux lettres : 

Sport, créativité et nouvel¬ 
les technologies 
Apprendre à réaliser des pro¬ 
jets dans tous les domaines. Ce 
stage s’adresse aux « jeunes 
battants qui ont des idées et 
l’esprit d’entreprise ». Séjour à 
Naucelle (Aveyron) du 9 au 
30 juillet 86. Pour les 11- 
15 ans. Prix: 4020 F plus 
voyage 600 F. Centre de loisirs 


70-58. 

Informatique et astronomie 

Une double initiation pour les 
13-17 ans. Lieu du stage : Is- 
serteaux, dans le parc Livra- 
dois-Forez. Hébergement sous 
tente et repas à l’auberge. Prix: 
2200 F. Du 7 au 17 juillet et du 
21 au 30 juillet. 

Astrap, 3, rue Pierre Curie - 
63000 Clermont-Ferrand. Tél. : 
73-91-43-28. 

Echecs et informatique 
A la fois des vacances, un 
stage et un’ tournoi. Réservé 
aux 7-13 ans. Initiation à l’infor¬ 
matique assurée par les pro¬ 
fesseurs de l’Ecole normale de 
Châlons. Tournoi d’échecs par 
groupe de niveaux. Du 24 au 


29 août, à Morillon en Haute- 
Savoie. Séjour en pension 
complète (900 F), demi-pen¬ 
sion ou externat. Inscription: 
300 F. A partir de Paris, 
1200 F, voyage compris. 
Fédération française d'échecs - 
Patrick Gonneau, 106, avenue 
Aubert - 94300 Vincennes. 
Tél.: (1)48-08-17-38. 

A la montagne 
Deux types de stage aux 
2 Alpes. Le premier concerne 
les enfants (initiation, langage 
logo, révision de maths). Il se 
déroule sur matériel Atari et 
coûte 600 F. Le second in¬ 
téresse les adultes (initiation à 
-l’informatique et à l’utilisation 
des logiciels professionnels) 
sur compatibles IBM PC. Prix : 
1000 F. 

Ces prix ne comprennent ni 
l’hébergement, ni les stages de 
tennis ou de ski auxquels ils 
peuvent être jumelés. 

Infoski, Hôtel La Brunerie, 
38860 Les 2 Alpes. 

Tél. : 76-79-22-23. 

Au pays du cassoulet 
Deux stages à Castelnaudary 
(Aude).* Le premier (4 au 8 août) 
est une initiation comprenant 
l'étude d’un micro, l’utilisation 
-de logiciels, la programmation 



Le metteur en 
page de la 
magnifique 
revue que vous 
avez en mains 
s’appelle 
Legan. Ce fou 
furieux ne rêve 
que d'enclumes 
qui tombent sur 
la tête des gens 
et d’une 
rubrique 
« Robots ». 

Pour les robots, 
c’est O K. Pour 
les enclumes, 
on 


en Basic et la réalisation d’ 
chier. Dix places disponibles, 
prix: 1350 F. Le deuxième (18 
au 22 août) est un stage de 
perfectionnement comprenant 
l’étude complète d’un système 
à disque, les différentes com¬ 
mandes d’un DOS, la réalisa¬ 
tion de programmes. Huit pla¬ 
ces disponibles. Prix: 1800 F. 
Le prix des stages ne com¬ 
prend ni l’hébergement, ni les 
repas, mais peut faire l’objet 
d’une convention de formation 
de personnel. 

CERA « La Dominique » 11170 
Villespy. 

Tél.: 68-60-21-89. 



ces logiciels révisent avec vous 



[ CLASSE 

TERMINALE 

| DOWNTOWN 

H E RO (ANGLAIS) 

^ COURS DE 

MATHEMATIQUES 

j CLASSE 

DE TROISIEME 

THE MYSTERY OF FARWICK CASTLE 

j CLASSE 

MATERNELLE 

RECONNAISSANCE DES FOR MES. COULEURS J 



LOISI TECH 

45.89.72.76 

revendeur 

agrée par 

l’importateur 

'BU 


c 'est aussi des jeux éducatifs , un forth 
performant et une gamme de lecteurs 
de disquettes 5 ' ] A pour AMSTRAD / 



DEMANDE DE DOCUMENTATION a retourner a LüTsiTECH 83 av Faidherbe 93100 MONTREUIL 

nom _adresse_ □ materiel ANVSTRAD □ DRIVES 

i prénom __ ville □ logiciels L0ISITECH 5"1/4 
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LES PRIX FONDE NT A U SOLEIL !!! 





„ The 
Amstrad 

CPC6128 


□ CPC 6128 moniteur monochrome ... N.C. 

□ CPC 6128 moniteur couleur.N.C. 


CITIZEN 


Des boîtes géniales pour ranger vos supports ! 

□ pour disquettes 5"1/4.7T8Û.F 155 F 

□ pour disquettes 3" et 3"1/2 ..'l'MJ 1 135 F 

□ pour cassettes .'M F 85 F 


□ 50 super-jeux 
sur une cassette... 


Sur une cassette pour : Oric 1 - A tm e» - C64 - 
VIC 20 - Atari - Apple - ZX81 - Spectrum - 
Electron - Laser 3000 - B.B.C. 


120 CPS - matrice 9x9- traction ou friction - jusqu'à 3 ex. - compatible EBSON - garantie 
2 ans - interface centronic intégrée. 

Copie d'écran, listing, courrier, que vous ayez un Amstrad, Oric, Sinclair*, Thomson, Commodore*... 
vous serez enchanté par cette imprimante. 

□ CITIZEN 120 D .349Q F 3190 F 

* avec interface 


□ tirvitt 2.150 F 

□ les 2.''mf 250 F 


AMSTRAD 


COMMODORE 


SPECTRUM 


□ amstradeus .399 F 

□ bombjack-D.TML.F 149 f 

□ commande - D.Î08*F 149 F 

□ green beret - D .T74. F 149 F 

□ green beret.>95 F 95 F 

□ spin dizzy.>0Q F 95 F 

□ turbo esprit.Î&U^F 80 F 

□ winter games - D.T05 F 145 F 

□ 3D grand prise - D.>06 F 129 F 

□ they sold a million n° 1 .. ,.>26 F 78 F 

□ they sold a million n° 1 - DTôflF 118F 

□ salut l'artiste. >06 F 98 F 

□ initiation basic .2H F 198 F 

□ easy amscalc.Z46 F 148 F 

□ master file .2*06 F 198 F 

□ spitfire 40- D. >86 F 159 F 

□ starwatcher - D.20$ F 199 F 

□ micropen - D.o0O F 399 F 

□ never ending story .T24 F 89 F 

□ loto.>25 F 105 F 

□ tennis 3D--D.>93 F 169 F 

□ H-basic .406 F 199 F 

□ bruce lee - D.T 6 Q F 139 F 

□ contamination - D.>£Q F 189 F 

□ they sold a million n° 2 - D 10Q F 159 F 

□ they sold a million n° 2.Î26 F 99 F 

□ dossier "G" - D ..>89 F 159 F 

□ sorcery "+" D.>85 F 110 F 

□ tau ceti - D.>84 F 110 F 

□ ping-pong.F 85 F 

□ rambo.. VOS F 80 F 

□ empire .T04 F 160 F 


□ stress.£26 F 95 F 

□ back gammon.Î35 F 95 F 

□ supersonic .TTK3 F 85 F 

□ sweevos world .T9QF90F 

□ pans .Î25F 85 F 

□ hard hat mack.Î06 F 99 F 

□ corepaint.T48.F 80 F 

□ master of the lamps.Î20 F 95 F 

□ CPgraph .Î0Q F 99 F 

□ superbio.>06 F 75 F 

□ 3 D sub.1*24 F 80 F 

□ matrix.1*t>SL F 69 F 

□ torann.î>6 F 80 F 

□ mercenaire .180 F 69 F 

□ Dranne.»6F 80 F 

□ fighting warrior.>40 F 79 F 

□ logiformes.Î26 F 89 F 

□ colorie.>04 F 69 F 

□ mission detector .>26F 89 F 

□ AMX cale.>54 F 169 F 

□ aide bureautique.>74 F 119 F 

□ 3 D voice chess - D7.T&Q F 139 F 

□ la ville infernale - D7.>24 F 149 F 

□ raid souterrain - D7 .>54 F 99 F 

□ facturation (coré).>85 F 99 F 

□ gutter.T24 F 89 F 

□ macadam bumper.>&Q F 119 F 

□ s.o.s. space.>76 F 119 F 

□ star avenger (464).>ÔQ F 69 F 

□ gems of stradus .>64 F 69 F 

□ atom smasher .>84 F 69 F 

□ crayon optique DK tronic . ,^H|Q195F 


□ david midnight.>Î05 F 85 F 

□ raid bungeling bay .>86 F 90 F 

□ spelunker.>44 F 95 F 

□ ghetto blaster .>35. F 95 F 

□ one and one .>25 F 85 F 

□ F 15 strike eagle D .>65 F 140 F 

□ flight simulator 2 - D..604 F 545 F 

□ king fu master D.>84 F 135 F 

□ mandragore D.>04 F 245 F 

□ ping-pong D.>55 F 125 F 

□ summer games II D.V06 F 159 F 

□ supper zaxxon D.T65 F 139 F 

□ paper clip 64 D.540 F 510 F 

□ oxford pascal D .500 F 408 F 

□ oxford pascal K7.204 F 199 F 

□ home organizer recettes ... >94 F 115 F 

□ home organizer timbres .. .106 F 115 F 

□ home organizer carnet adr. >04 F 115 F 

□ home organizer liste adr.... TSO^F 115F 

□ home organizer photos.>94 F 115 F 

□ home organizer inventaire . Î0Q F 115 F 

□ turbo 20."585 F 285 F 

□ théâtre europe D .T74 F 135 F 

□ they sold a million D 7 ... >04 F 120 F 


□ game killer (cart.). 

□ pancho. 

□ ankk . 

□ série noire. 

□ infernal runner . 

□ master of the lamps . 

□ hover bouver. 


. >04 F 160 F 
.. >80 F 85 F 
...TH F 75 F 
.. >05 F 70 F 
miF 110 F 
.. 1>Û F 85 F 
>64 F 75 F 


□ beamrider.T0Q F 75 F 


□ pitfall II . 

□ aztec 


5 F 80 F 
ï F 60 F 


□ gest . 


ORIC 


□ koronis rift . 

□ web dimension. 

..1-T5F75F 
..>40 F 80 F 




□ rock’n boit. 

.. >05 F 90 F 

60 F 

□ oric mon . 

.99 F 

□ pastfinders . 

.. 184 F 90 F 

80 F 

□ pasta blasta . 

.85 F 

□ archon . 

T2CF90F 

95 F 

□ rat splat. 

.80 F 

□ a view to a kill . 

.. >46 F 85 F 

75 F 

□ talisman . 

.98 F 

□ slapshot. 

. .TSO F 90 F 

70 F 

□ titan. 

.95 F 

□ battle for normandy . 

T45 F 100 F 

85 F 

□ ultima zone. 

.65 F 

□ scrabble . 

T9SF115F 

80 F 

□ caractor (oric 1) . 

.55 F 

□ megarnem (ext. mémoire). 

39ÛF 295 F 

98 F 

□ zig zag (oric 1) . 

.50 F 

□ théâtre europe. 

.. T4Q F 95 F 

69 F 

□ jogger (oric 1). 

.45 F 

□ space shuttle . 

... >34 F 95 F 

74 F 

□ pengoric (oric 1). 

.50 F 

□ macadam bumper. 

>66 F 120 F 
. >00 F 95 F 

72 F 

□ facturation (oric 1). 

.60 F 

□ they sold a million K7 ... 


□ arcadia.H4F80F □ riddler's den. 

□ pedro .>44 F 80 F □ hopper. 

□ bugaloo .>24 F 75 F □ road toad. 

□ painting joe.>06 F 69 F □ bear boover. 

□ baords of midnight.>24 F 90 F □ snooker . 

□ lombrix .05 F 69 F □ jumping jack. 

□ aquarius.>95 F 75 F □ cookie . 

□ chuckie egg.>05 F 80 F □ impossible mission 

□ jetpac.> 64 F 80 F □ the hobbit. 

□ ballblazer .Î24.F 85 F □ barry M.G. boxing . 

□ back gammon.14fkF 100 F □ computer 10 hits.. 

□ gotohell.\X^F 85 F □ doom dark. 

□ manie miner.>84 F 80 F □ hacker . 

□ mind shadow .TH F 75 F □ movie. 

□ iofthemask.Ti5 F 90 F Dstarion . 

□ zipzap.>80F70F □ sweevo's world ... 

□ toy bizarre.T24 F 75 F □ thomahawk . 

□ siège .>24 F 60 F DX-cell . 

□ trashman.»Q F 70 F □ zoom. 


.>05 F 85 F 
>64 F 70 F 
>84 F 70 F 
.>95 F 80 F 
.>85 F 85 F 
. >84 F 85 F 
>45 F 75 F 
>65 F 85 F 
>04 F 105 F 
*H4 F 75 F 
.>24 F 85 F 
>26 F 85 F 
>20 F 85 F 
. 105 F 75 F 
, 1HF80F 
.T84F70 F 
.K5 F 80 F 
^94F70F 
. 10fiJ 75 F 


THOMSON 


5 :M05 
7 : T07-70 
9 : T09 
Q : Q.D.D. 


M .- cartouche 
C : cassette 
D : disquette 


□ le téléphone C7-5.,~T05 F 99 F 

□ feu vert C7-5.>74 F 119 F 

□ geste artillac - D9 .,.'20û F 249 F 

□ mandragore - D9..'206 F 249 F 

□ point bac (français) - D9.. .'024 F 289 F 

□ balade big ben.200F 215 F 

□ océania - D9.206 F 219 F 

□ microscillo - Q5-7.>26 F 249 F 

□ vampire-Q5-7.206 F 219 F 

□ airbus M7-5 .>04 F 295 F 

□ contrôle aérien - D9..*>95 F 399 F 

□ DOS logo - D7-5.?25 F 189 F 

□ karaté-D7.226 F 189 F 

□ miner 2049 - M5-7.344 F 279 F 

□ 3D sub. - C7-5 .>24 F 85 F 

□ dianne - C7-5.>25 F 89 F 

□ torann-C7-5.120 F 85 F 

□ super-tennis - C7-5.>96 F 169 F 

□ thésaurus - D9.>44 F 199 F 

□ rodéo-C7-5 .Î00F159F 

□ votez pour moi - C7-5.>04.F 119F 


□ TRAPM5-7 . 386F 149 F 

□ club de football C7-5 .T95. F 119 F 

□ carnet d’adresse M7-5 ... .'044F 249 F 

□ gérez vos fiches M7-5.065 F 299 F 

□ calculatrice M7-5.205. F 149 F 

□ carnet de santé C7-5.>84 F 129 F 

□ polyphonia M7 .400 F 249 F 

□ votre auto C7-5.>06 F 109 F 

□ agenda M7 .>K) F 199 F 

□ motus M5.>04 F 179 F 

□ un mot pour le compte M5 326F 169 F 

□ gérez biblioth M5 .480 F 299 F 

□ placements épargne C7-5 24PF109F 

□ quest M5 .>35 F 199 F 

□ tic-tac C5 .>48 F 89 F 

□ le millionnaire C5 .>48 F 99 F 

□ une affaire en or C7-5 .1*44 F 89 F 

□ monte-carlo C7-5 .1>4 F 89 F 

□ talbo 5 C5..'206F 139 F 

□ intox et zoë C5 .286 F 109 F 

□ le compte estrond C7-5 . ...T86F99F 

□ cubomagique C7-5.>84 F 109 F 

□ jeu de boole C7-5.T8§ F 109 F 

□ addsous C7-5 .T0&F 115 F 

□ 1815 C7-5 .TB0F 119 F 


moniteur couleur sonore 12" :□ entrée péritel 2695, F 2450 F Dpour commodore 128 (40-80 col.) 2950 F 

20, rue de Montreuil 94300 VINCENNES - Tél. : (1) 43.28.22.06 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19 h 

EN JUILLET AOUT AUSSI 




BON DE COMMANDE : Cocher le(s) article(s) désiré(s) - ou faites une liste sur papier libre en précisant bien la marque et le type de votre ordinateur, 
faites le total + frais de port (20 F pour achat inférieur à 500 F, 40 F de 500 F à 1000 F, 60 F pour tout achat supérieur à 1000 F). 

NOM __ PRENOM_ORDINATEUR_ 

ADRESSE_ CODE POSTAL_ VILLE_ 


Mode de paiement : □ chèque / □ mandat / □ contre-remboursement (prévoir 20 F de frais) - envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 
































































































































































































































Les rats ont quitté le navire. Les puces ont embarqué... 

Et elles grattent! 

Sur la planche de l’architecte et la table du navigateur, 

sous les moules des chantiers et derrière les ciseaux du voilier... 

Elles assurent la tactique en course et la navigation au large. 

Sûr, les puces ça démange le marin... 

l'époque, cette bombe rouge bien 
nommée est d'une redoutable effica¬ 
cité: elle est née sur la traceuse Ben- 
son de Jean-Marie Finot. L’ordinateur 
n'a pas décuplé le talent de l’archi¬ 
tecte. mais en le dégageant de 
toutes les tâches répétitives, I lui 
a permis de s'exprimer plus fa¬ 
cilement. Alors qu'il fallait une 
semaine pour calculer et 
dessiner une carène à la 
main, il peut en sortir au¬ 
tant qu'il veut dans le 
même temps grâce à 
sa machine. Une fois 
définis le pro¬ 
gramme et les 
principales ca¬ 
ractéristiques 


L 'ordinateur gagne sur l'Atlan¬ 
tique. Il va remporter la coupe 
America. En équipage ou en soli¬ 
taire. il est de toutes les courses autour 
du monde. Mais il est aussi de toutes 
les croisières familiales et des régates 
de club. La famille qui bronze au mouil¬ 
lage au fond d'une crique luit doi sa sé¬ 
curité et son plaisir» 

En quelques années, il a révolutionné 
discrètement le monde de la plaisance 
Il intervient maintenant dans tous les 
domaines du nautisme. La conception 
et la réalisation des coques, voiles, 
gréements, structures et aménage¬ 
ments lui doivent beaucoup. Mieux en¬ 
core, il s'installe à la table à carte quand 
' : '1M^ren,çt pas carrément sa place (voir 
îSadre). De -quoi faire é^d^pa^Êer-, 
fâtÎFs ' te' spectrp d'une jpipRffln 
pressé-boujp&^nihtlânt TcM^ufe_ilÉV k . 

Chaîne: *fees' professiQphe0.'^jx,L|^-_ 

rafelnQjïus se .passer de leur-<daé : .. 
cfah : e : '\"Les réfrgçlaires-.’-p'êCvent douF^ 
joufs louer-de'la règle en bois et du 
''sextant . -4 

' Ce sont les architectes qui ont lancéje' T 
mouvement. Précurseur. Jea«-Wane.,_ 

Finot achète son,premu@r ; -qr(î : hàt©ur;eR^ . 
lâZCUEn .IQT^Dé^&yrrbrr'mènê'^r 
. jèai]-Jj»trf?Tabry-entanTe une- carrière' 

*'■ U épouvantail a Br+tanniqu^s-au sein de 
tfeuis^preppes coursés. Si eJJe ne ré- 
pOQd pas-âûx critères^ esthétiques de 
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B French Kiss », le 12m Jl de Marc ftaiot, défendrai 
'couleurs françaises dans la pmafeine coupe dœ/ 
l'América. / r 

Ce bateau, aux lignes extnIÊmnent pures, est un 
produit technologique ufÊËSsophistiqué. Tant au 
|D/Veau de sa conceptk^^pe des matériaux utilisé; 
mpur sa fabrication. A 

'tsinformatiaue. largement sollicitée pour sa ■ 
Jfalis&H^^iQit maintenant permettre d'obtenir m 


différents projets jusqu'à obtenir le ré¬ 
sultat désiré. Ce qui demandait aupa¬ 
ravant des semaines de travail se réa¬ 
lise en quelques heures. Mais le temps 
gagné permet aussi une multiplication 
des études pour une même carène. Il y 
a quinze ans, il fallait plus d'un mois 
pour tracer et calcule' les trois à cinq 
versions nécessaires d’une coque. 
Une fois satisfait du résultat, l'architecte 
peut coupler l'ordinateur à son traceur 
qui lui sort un jeu de plans complet, uti¬ 
lisable par le chantier. Parallèlement, 
les téléscripteurs fournissent les ta¬ 
bleaux de cotes et de calculs. Toutes 
les caractéristiques' de la carène en 


RTOateau, il dessine une ébauche à la 
r main sur laquelle on relève un certain 
nombre de points mathématiquement 
^féfinis. Introduits dans l'ordinateur, ils 
Reviennent la base de travail à partir de 
'i&quelle ce dernier propose une forme 
de carène (partie immergée de la 
coque d'un bateau). Commence alors 



. 'A j* 


un dialogue entre l’architecte et la ma¬ 
chine. Changeant certains paramètres, 
le créateur peut réaliser et comparer 


fonction de l'assiette, de la gîte, des va¬ 
riations du centre de carène ou de gra¬ 
vité. y sont consignées. ' v ■ 
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Pour vaincre sur le plan d'eau de Perth (Australie) où se déroulera la prochaine Coupe de 
I America, rien n'est laissé au hasard. Le régime des brises locales, I état de la mer qui en 
résulte, l’incidence des courants, les effets du relief de la côte sur le vent, et même ceux 
du passage d'un nuage (!), tout a été mis dans le logiciel du professeur Couard, chargé de 
la recherche à la Fédération française de voile. Ce logiciel fournira une aide précieuse 
pour définir la tactique des «match racing» (régate à deux bateaux) que disputeront les 
challengers français. 


Jean-Marie Finot a réalisé son propre 
logiciel de CAO. Il l'utilise sur un maté¬ 
riel qu’il a adapté à cette fin. Ayant dé¬ 
buté avec un Hewlett Packard 2114 et 
une console Texas Instrument, il dis¬ 
pose maintenant d’un HP 9000. 
Concepteur de son outil informatique, 
celui-ci ne risque pas de constituer un 
filtre entre ses conceptions du bateau 
et la réalisation. Gilles Ollier a suivi une 
démarche similaire en créant ce qu'il 
appelle un «alphabêt de courbes». 
Son logiciel, établi sur HP 41. lui fournit 
des courbes mathématiques corres¬ 
pondant à différents paramètres 
comme la longueur, la largeur, le poids 
ou le centre de carène d’une coque. 
Spécialisé dans le domaine eu multi¬ 
coque, Gilles Ollier obtient en particulier 
un dessin d'étrave cohérent difficile à 
obtenir à la main. Mais, tous les archi¬ 
tectes ne se sentent pas une vocation 
de programmeur. Pour ces derniers 
existent différents modèles de logiciels 
comme le programme CIRCE de Marc 


LeComputervision : 
un auxiliaire précieux 

Pommelet ou comme celui mis au point 
par Philippe Pallu de la Barrière du 
CRAIN (Centre de recherches pour 
l'architecture navale et l'industrie nau¬ 
tique). Puriste, Gilles Ollier considère 
que ces programmes de lissage ne ga¬ 
rantissent pas une cohérence de forme 
entre les différentes parties du bateau. 
Quand il réalisait son premier bateau de 
série, le Kelt 8 m. à l'aide de son logi¬ 
ciel, les chantiers nautiques n’avaient 
pas encore été touchés par l'informa¬ 
tique. Les choses ont bien changé de¬ 
puis. 

Chez Jeanneau, un des deux grands 
chantiers français, et donc mondiaux, 
un effort très important a été effectué 
dans ce sens. Un système t'ès puis¬ 
sant et coûteux, le Computervision a 
été mis en place. Utilisé pour >e bureau 
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d'étude, il fonctionne en CAO comme 
dans un bureau d'architecte, oermet- 
tant de reprendre les plans de ceux qui 
n'ont pas encore lâché la table à des¬ 
sin. Sa puissance de calcul permet 
aussi d’analyser les résistances de 
matériaux, de mathématiser :ous les 
volumes ou surfaces complexes. Me¬ 
ner l'étude des aménagements in¬ 
térieurs ou définir la forme des cloisons 
est bien sûr à la portée de cet:e ma¬ 
chine. Le Computervision est aussi uti¬ 
lisé comme banque de données vi¬ 
suelle de tous les équipements stan¬ 
dards qui parsèment le pont d’un ba¬ 
teau. Sur l’écran, l’opérateur peut ainsi 
faire des essais de disposition sur le 
pont du bateau à naître. 

Le Computervision est aussi devenu 
pour le chantier un auxiliaire orécieux 
de la fabrication. Toutes les caractéris¬ 
tiques du bateau étant mathématisées. 
l'ordinateur pilote directement les ma¬ 
chines à commandes numérques qui 
usinent les pièces. C’est le cas de la 
découpe des cloisons. La chaîne est 
ainsi complète. De la conception à la fa¬ 
brication, tout passe par le calcul. Les 
plans n’ont plus de raison d'être. 

Plus étonnant encore, le bateau tout 
entier prend forme grâce à l ord nateur. 
Pour réaliser le moule d'où sortiront les 
coques de série, il est nécessaire de 
construire un modèle de coque res¬ 
pectant au millimètre près les plans de 
l'architecte et parfaitement symétrique. 
Jeanneau le fait tailler dans un énorme 
bloc de résine époxy. matière plus dure 
mais plus stable que le bois, par une 
fraise à commande numérique. Entre la 
première ébauche exécutée à la main 


par l’architecte et le modèle définitif qui 
donnera naissance à la série, toutes les 
opérations sont assistées par l'ordina¬ 
teur. Il calcule, dessine, conçoit, fa¬ 
brique et même gère la production. 

Les voiles n'y échappent pas. Nom¬ 
breuses sont maintenant les voileries 
dotées d'un système de CAO. Des lo¬ 
giciels permettent d'établir le plan des 
coupes et des renforts en fonction de 
l’usage attendu de chaque voile et des 
performances recherchées. Ils pilotent 
aussi le système de découpe laser du 
tissu. L’intervention humaine se limite 
alors aux coutures. 

Mais, s’il permet de réaliser un produit 
fini de bonne qualité, l’ordinateur n'a 
pas encore résolu tous les problèmes. 
La mer est un domaine d’une telle 
complexité, tout comme les bateaux 
qui y naviguent, qu'elle rés ste encore à 
la mise en équation. « On ne peut ac¬ 
tuellement simuler les cas extrêmes» 
avoue Gilles Ollier. L'auteur de Crédit 
Agricole Ile t des Jets Services est sou¬ 
vent confronté à ce type de cas. Telle 
est la loi de la recherche et de la com¬ 
pétition. Mais il lui faut tenter de prévoir 
le comportement de ces bateaux de 
haute performance. Cette démarche 
nécessite des équipements de grande 
puissance comme ceux que possède 
l’Ecole nationale supérieure de méca¬ 
nique de Nantes. 

Etudier le comportement d’un multi¬ 
coque en navigation exige l'appréhen¬ 
sion la plus fine possible du milieu dans 
lequel il évolue. Or un bateau se dé¬ 
place sur la frontière entre deux fluides 
constamment en mouvement: l’air et 
l’eau. Vouloir simuler, grâce à des mo- 
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dèles mathématiques, cette zone de 
contact est sans doute le problème le 
plus ardu auquel s'attaquent les infor¬ 
maticiens de la plaisance. A l'ENSM. la 
démarche est d'envisager la mer 
comme un mélange de facteurs régu¬ 
liers différents. Leur superposition per¬ 
met d'obtenir un modèle relativement 
proche de la réalité. Il ne peut oour au¬ 
tant prévoir ces fameux «cas extrê¬ 
mes », comme, cette vague dans la¬ 
quelle s'est planté le grand Jet Services 
avant de se retourner. Il autorise ce¬ 
pendant l’étude des structures et des 
efforts quelles subissent quand le ba¬ 
teau est en évolution. Ces renseigne¬ 
ments sont particu lèrement orécieux 
pour le calcul des liaisons d'un multi¬ 
coque. Sur un catamaran, les deux flot¬ 
teurs ne son pas soumis en même 
temps aux mêmes contraintes les bras 
qui les relient subissent donc conti¬ 
nuellement des efforts de cisaillement, 
de compression ou de torsion. La si¬ 
mulation de ceux-ci avec l'ordinateur 
perme: de choisir les bons matériaux. 
Le carbone résiste :rès bien à la com¬ 
pression alors que le kevlar est bien 
adapté à l'étirement. Il faut donc les uti¬ 


liser au bon endroit. La simulation peut 
le permettre en indiquant les efforts 
exacts auxquels seront soumises les 
différentes parties de la structure. 

Ces programmes sont encore très diffi¬ 
ciles à réaliser et surtout très coûteux. 
Quand le bateau bouge, tous les pa¬ 
ramètres bougent. Un véritable casse- 
tête. A l'ENSM. les chercheurs ont 
pourtant réussi à mettre au point un 
programme de simulation du virement 
de bord. Il permet de suivre le « vécu » 
complet d'un bateau pendant cette 
manœuvre. Un orogramme qui peut se 
révéler particulièrement intéressant 
dans le cadre d'une compétition 
comme la Coupe America. Dans les 
duels que s'y ivrent les concurrents, 
les virements de bord se succèdent à 
un rythme élevé et font partie intégrante 
de ce jeu aux enjeux énormes. 

Les « défis » de la Coupe de l'America. 
dont les éliminatoires se disputeront à 
la fin de l'année à Perth, en Australie, 
sont donc grand consommateurs d'in¬ 
formatique. Là. plus qu ailleurs. elle in¬ 
tervient à tous les niveaux. Il s'agit dans 
ce type de compétition de gagner des 
centièmes de nœuds. La victoire est 


conditionnée par des différences infini¬ 
tésimales entre les bateaux. De quoi se 
pencher sur les pupitres. Et là. on 
donne dans la démesure. Des firmes 
comme Dassault ou l'ONERA ont mis 
leurs super-ordinateurs à la disposition 
des «défis» français. Celui de chez 
Dassault, sur lequel ont été testées une 
trentaine de carènes et de quilles ima¬ 
ginées par Philippe Briand, effectue 2 
milliors d'opérations par seconde. Il 
faut pourtant quatre à cinq heures pour 
visualiser sur l'écran l’écoulement de 
l'eau sur la coque. Mais le résultat est à 
la hauteur et French Kiss fit une presta- 



II a fallu quatre à cinq heures de travail à des ordinateurs capables d effectuer 2 millions d opérations par seconde pour donner des images comme celle 
ci. Et tout cela pour tenter de gagner quelques fractions de nœuds ( vitesse) qui feront la différence dans des duels qui s annoncent serrés. 
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tion remarquée lors du championnat du 
monde des 12 mètres Jl ( jauge in- 


° terrationale) en Australie. 

Connaître parfaitement le champ clos 
sur lequel se déroulera ce gigantesque 
tournoi qu'est la Coupe America est 
aussi une des missions qui a été 
confiée à l'ordinateur. La météorologie 
locale du plan d'eau de Perth est un 
élément à maîtriser en priorité. C'est 
d'elle dont dépend la périodicité de la 
houle dans laquelle vont évoluer les ca¬ 
rènes. Le renseignement est précieux 
pour les architectes tout comme la 
force du vent qui règne habituellement 
ou ses variations de direction. 

Les campagnes effectuées sur place 
avec du matériel HP ont permis de 
stocker des millions d'octets de don¬ 
nées météo. Leur analyse a mis en évi¬ 
dence les effets les plus infimes du re¬ 
lief environnant sur le vent. 


Des millions d’octets 
de données météo 


Les conséquences d'un passage de 
nuage n'ont pas non plus échappé aux 
calculs. Combinés à des mesures de 
courant tout aussi précises, ces rensei¬ 
gnements ont permis l’établissement 
d'un logiciel tactique destiné aux ordi¬ 
nateurs de bord des bateaux. Car bien 
évidemment, l'ordinateur a pris place à 
bord, apportant un concours indispen¬ 
sable au tacticien. Sans lui, difficile de 
savoir si le bateau marche au maximum 
de son potentiel, impossible de grapil- 
ler ces fractions de nœud qui devien¬ 
dront des secondes d'écart lourdes de 
conséquences sur la ligne d'arrivée. 
Dans les régates de la coupe il n'y a 
qu'un vainqueur et un vaincu, et pour¬ 
tant la différence est minime. L'ordina¬ 
teur peut la faire. Aux hommes de sui¬ 
vre. 

Jean-Luc Garnier 

1 6 


MAC SOUS LES EMBRUNS 


Eric Loizeau et Patrick Tabarly étaient 
seuls à bord de Roger et Gallet. Normal 
dans une course en double. Mais 
quand ils sont arrivés à New York en 
vainqueur de la course de la Liberté- 
Normerel, l’équipage effectif n'était 
pourtant pas au complet. 

A Bayonne, l'équipe d'informatique et 
Mer avait, elle aussi, mérité cette vic¬ 
toire. C'est elle qui «routait» le grand 
catamaran dans cette epreuve. La 
technique n'est pas nouvelle. Connais¬ 
sant les polaires de vitesse du bateau 
dans toutes les conditions de naviga¬ 
tion, il s’agit de lui faire suivre ure route 
à temps minimum en fonction des pré¬ 
visions météo et océanographiques. 
Pour effectuer ce travail, Informatique et 
Mer a mis au point un logiciel spécialisé 
qu'elle alimente avec les meilleures 
prévisions météo possibles. Une fois le 
traitement effectué, les « conseils » de 
caps à prendre et de vitesses à attein¬ 
dre sont envoyés au bateau routé par 
radio-télex pour sauvegarder la confi¬ 
dentialité nécessaire. 

Ainsi à mi-course, Roger et Gallet a su¬ 
bitement mis cap au ncrd. Au P.C. 
course parisien, Michel Horeaux 
s'étonnait. «Je n'ai pas compris tout de 
suite. Puis j'ai vu apparaître une petite 
dépression sur une carte météo». Les 
route jrs l’avaient flairée avant lu. Passé 
au ncrd du phénomène, le catamaran a 
profité d'un bon vent portant. Il décro¬ 
chait ainsi son principal adversaire du 
moment qui, resté plus sud, prenait au¬ 
tant de vent... mais de face. 

Jean-Yves, navigateur, tacticien et sur¬ 
tout mathématicien éprouvé, n'en est 
pas à son coup d'essai. Avant de s'oc¬ 
cuper à plein temps d’informatique et 
Mer, il effectuait le routage de Poilippe 
Jeantot sur Crédit Agricole II. Mais avec 
ses deux complices, Gregor Sevieli et 
Brice Pryszo, il a mis au point le Mac 
Sea qui effectue un travail similaire à 
bord même du bateau. 

A la base, un Macintosh Plus 1024 Ko, 
étanche au ruissellement, alimenté en 
12 ou 24 volts et possédant deux lec¬ 
teurs de disquettes intégrés. Pas de 
clavier, inutilisable sur un voilier en 
mouvement, mais une souris. ~ous les 
capteurs du bord sont reliés à cette 
unité centrale, qu’ils soient traditionnels 
comme le loch-speedomètre, qui me¬ 
sure la distance parcourue et la vitesse 
du bateau, et la girouette-anémomètre, 
qui indique la direction et la vitesse du 
vent, ou qu’ils soient des positionneurs 
modernes comme les Decca, Sat-Nav, 
Loran, etc. Sur des disquettes sent mé¬ 
morisés tous les documents nautiques 
nécessaires tels que cartes marines, 


horaires de marée, livre des feux ou 
cartes de courants. A partir de là tout le 
travail de navigation s'effectue sur 
l’écran avec la souris. La position du 
bateau y est visualisée sur un fond de 
carte. Avec la souris, le navigateur ap¬ 
pelle les fonctions désirées et le Mac 
Sea effectue tous les calculs deman¬ 
dés. 

Simultanément, il mémorise tous les 
éléments qui lui Sont fournis par les 
capteurs. Il en tire une analyse objective 
et en temps réel du comportement du 
bateau. Celle-ci devient une aide pré¬ 
cieuse pour la tactique, permettant de 
toujours exploiter au maximum le po¬ 
tentiel du bateau et de choisir les bons 
bords. Interfacé avec le pilote élec¬ 
trique, il peut même commander le vire¬ 
ment de bord au meilleur moment. En¬ 
core faut-il que l'équipage s’occupe de 
la manœuvre ! 

Connecté avec un décodeur de cartes 
météo, à un télex et à un récepteur, le 
Mac Sea se charge de collecter les in¬ 
formations météo venant de la terre en 
sélectionnant les fréquences radio aux 
heures appropriées. L'opérateur n'a 
qu’à choisir à l'avance dans le catalo¬ 
gue en mémoire les informations dé¬ 
sirées. Le Mac Sea peut faire apparaître 
les cartes météo à l'écran, mais il de¬ 
vient aussi le routeur du bateau. Les 
prévisions sont combinées avec les 
données réelles fournies par les cap¬ 
teurs du bord. Des propositions de 
route à temps minimum sont alors faites 
en continu, corrigeant les prévisions en 
fonctions des données vécues et te¬ 
nant compte dans le cas d'une course 
des nécessités tactiques. Car le Mac 
Sea peut analyser simultanément la 
marche des concurrents... à condition 
de lui fournir leur position. 

Avec un tel équipier à bord, les hommes 
peuvent se charger de « mettre du char¬ 
bon». Le Mac Sea, navigateur, tacticien 
prévisionniste, se charge du reste. 
J.-L. G. 

Informatique et Mer, Z.A. Saint-Frédéric, 
64100 Bayonne. Tél. 59.55.45.47. 

L'ordinateur décode la météo, analyse 
la marche du bateau, et propose une 
nouvelle route. «Y’a plus qu’à»... tirer 
sur les ficelles... 
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Pas question de laisser le soleil vous liquéfier le cerveau. 
Il s’agit de mettre les vacances à profit 
pour tester vos connaissances en micro-informatique 
et organiser une frime totale devant votre petit(e) ami(e). 

I l ne suffit pas de se promener sur la 
plage avec un exemplaire de Micro 
V.O. roulé dans l’élastique de votre 
slip de bain pour épater les foules en 
délire. Le plus snob consiste à casser 
les tests d’été en groupe. Répondez 
aux 50 questions sans tricher. Certai¬ 
nes sont ultra-simples et d’autres parti¬ 
culièrement vicieuses. Après cette 
épreuve infernale, il vous restera à dé¬ 
chiffrer vos résultats et à consulter les 
solutions pour savoir dans quelle caté¬ 
gorie d'intellectuel informaticien vous 
vous situez. 

Voilà de joyeuses soirées en perspec¬ 
tive, au son des cigales et des gr lions, 
sous l’odeur des pins et avec le ressac 
de la mer en fond sonore. N’entendez- 
vous pas chanter les disquettes au 
fond des drives? 

A vos crayons... 

1. Le DOS veut dire: 

□ Colonne vertébrale de l'informati¬ 
cien 

S Disk Operating System 
□ Drive Outpout Supply 

2. Le premier calculateur élec¬ 
trique fut: 

0 l’ENIAC 

le HARVARD MARK 
’UNIVAC 

Le patron d’Atari s'appelle: 

ElieTramiel 
□ JackKenan 
0 JackTramiel 

4. Lord Sinclair a fabriqué: 

□ des magnétoscopes 
□ des voitures 
0 des caméras vidéo 

5. Apple s’appelle Apple à l’origine 



6. Le clavier Maltron commence 
par: 

□ AZERTY... 

0 QWERTY... 

□ QPYCB... 

7. AMSTRAD signifie: 

□ Application Micro System T'ade 

□ Algorithm Micro Software Trade 

□ Alan Michael Sugar Trade 

8. Jean-Louis Gassée a : 

□ moins de quarante ans 

□ quarante ans 

□ plus de quarante ans 

9. Monsieur MATRA est le papa : 

□ d’Aurélie 

□ d’Octavie 

□ d’Alice 

10. La première machine à calcu¬ 
ler fut fabriquée par: 

□ Wilhelm Schickard 
0 Pascal 

□ Auguste Comte 

11. L’interface MIDI permet de: 

□ piloter un CD ROM 

□ piloter un synthétiseur 

□ piloter un Fokker 27 

12. Le microprocesseur du GOU¬ 
PIL III est un: 

0 Z80 

□ 6502 

□ 68000 

13. Qui a inventé le Logo : 

□ John Fernandez Ruiz 

□ Randy Hyde 

0 Seymour Paper! 

14. Qu’est-ce qu’un byte: 

□ un é ément binaire (0 ou 1 ) 

□ un octet 

□ un n bble 









15. J AVEU N est: 

□ un logiciel ce sport pour IBM 

□ un jeu d’aventure pour IBM 

□ un tableur pour IBM 

16. Parmi ces trois barbus, lequel 
a gardé ses cheveux? 

□ Clive Sinclair 

□ Pierre berloquin 
0 Alan Sugar 

17. Dans une puce, on trouve : 

□ du strontium 
12 du silicium 

□ du géranium 

18. Un de ces langages n’est pas 
de haut-niveau: 

□ Basic 

□ Forth 

0 Assembleur 

19. Combien de touches sur le cla¬ 
vier du Commodore VIC20 ? 

□ 32 
0 54 

□ 86 

20. Un de ces livres a eu le grand 
prix de la littérature micro-infor¬ 
matique: 

0 Pratique des IBM PC d'Henri Lilen 

□ Le Guide illustré de l'informatique de 
Larry Gonick 

□ La Puce et les géants d’Eric Laurent 

21 . Lequel de ces logiciels vous 
fait flipper? 

□ Devil Assaut 

□ David Midnight 

□ Digger 

22. Parmi ces noms de fleurs il y a 
un compatible PC: 

□ Rose 

□ Jasmin 
0 Tulipe 

23. Comment s’écrit « Pépé 
Louis» en ASCII hexadécimal? 

□ CA AE C6 AE D2 D5 C9 DA AE 

□ DO Cl DO Cl DO D5 D4 CF D5 

□ DO E5 FO E5 CC EF F5 E9 F3 


26. Le mot ordinateur vient : 

□ du latin ordinare (mettre de l’ordre) 

□ du latin ordonare (donner des or¬ 
dres) 

□ de l’anglais ordinate (ordonnée) 

27. La technologie DRAW 
concerne : 

□ le dessin assisté par calcul 

□ la conception de studios gra¬ 
phiques 

□ l'écriture sur disque optique numé¬ 
rique 

28. Le premier jeu d’aventure sur 
micro-ordinateur s’appelait: 

□ TheCastle 

□ The Mystery House 

□ The Quest 

29. Qui a écrit Branchez-vous? 

□ Henri Lilen 

□ Thierry Breton 
B Joël de Rosnay 

30. Au cours de l’année 83/84 
combien les Japonais ont-ils fa¬ 
briqué de micro-ordinateurs? 

□ 725834 
0 972450 

□ 1141079 

31. La valeur décimale du code 
ASCII de la lettre A est : 

□ 64 

□ 65 

□ 66 

32. Qui est Valentine? 

□ Un ordinateur pour enfant 

□ une carte graphicue pour l'EXL 

□ une carte de symhèse vocale pour 
non-voyants 

33. L’un de ces ordinateurs était 
dans la navette spatiale: 

□ Ericsson 
DI Grid 

□ Sperry 

34. En septembre 85, combien y 
avait-il d’ordinateurs domestiques 
en France? 

□ 620000 
0 970000 
□ 1050000 


24. Al Kharezmi est : 

□ un magicien turc 

□ un mathématicien arabe 

□ un alchimis:e de Bagdad 

25. Le Dragon 32 était équipé: 

□ d’un6809E 

□ d’un65C02 

□ d'un TMS7020 










35. Que signifie le mot TRON 

□ C’est le titre d’un film 

(3 C’est une instruction du Basic 

□ Transistor Resistor Optica Numeric 

36. Les Canadiens appellent le 
symbole «&» de la façon suivante: 

0 laperrette 

□ la charrette 

□ laperluette 

37. Qui a inventé l’arithmomètre, 
l’une des premières machines à 
calculer qui fut un succès commer¬ 
cial: 

□ Charles Xavier Thomas de Colmar 

□ A debert Sixte Bragercourt 

□ Sir Samuel Morland 


Verticalement: A. cette secrétaire a 
parfois des talons aiguilles. B. un ca¬ 
lembour du Verrmot - plutôt dans l’une 
que dans l’autre. C. quand elle double, 
elle regarde au-dessus et en-dessous 
- paix à son âme. D. actvité répandue 
en micro-informatique. E. économise 
l’énergie si on la libère - souvent en 
échec. F. il vaut mieux le faire dans la 
cuisine qu’aux impôts - géant yankee. 
G. expression à la mode aux Etats- 
Unis. H. Aldo Reset passe son temps à 
la faire sauter - moins gênante sous un 
capot que dans le lit. I. au tout début de 
l’informatique - vendeu' d’ordinateur. 
J. sollicités quand ils sont techniques. 


□ Binary Addition System Instruction 
Code 

□ Beginners Ail purpose Symbolic 
Instruction Code 

□ Byte Assembler System Instruction 
Code 

41. L’un de ces Gaulois est un or¬ 
dinateur: 

B Toutatis 

□ Esus 

□ Taranis 

42. Vous souvenez-vous de l’au¬ 
teur du logiciel Remember? : 

□ Luc Barthelet 

□ Laurent Ribardière 

□ Cyrille de Vignemont 


Horizontalement: 1. entre deux vi¬ 
sages. 2. un confrère. 3. elle a de sé¬ 
rieux appuis. 4. se rebiffe - ça m’in¬ 
terpelle - toujours dans le fond quand je 
programme. 5. le secret britannique - 
dans la mélasse - docteur. 6 . souvent 
plus grande quand elle est bien vivante. 
7. grand producteur de micros - il vaut 
mieux en avoir. 8 . farouchement op¬ 
posés à l’analogie. 9. un bout de can¬ 
tique - vieille viande - au-dessus du 
préparatoire. 10. la joie du program¬ 
meur - objet dans le désordre. 


46. Pour effacer une EPROM (mé¬ 
moire programmable), on l’ex¬ 
pose: 

□ aux rayons X 

□ à la lumière du jour 
13 aux ultra-violets 

47. Qui a inventé les systèmes à 
fenêtres ? : 

□ Rank Xerox 

□ IBM 

□ Apple 

48. Le réseau TRANSPAC a 
sauté: 

□ en juillet 83 

□ en juillet 84 

□ en juillet 85 


ABCDEFGHIJ 




38. Ici se cache un ordinateur bri¬ 
tannique: 

□ Proton 

□ Positon 
0 Electron 

39. Sherry Turkle, doctoresse en 
sociologie et psychologie, a écrit: 

B Le Stress des ordinateurs 

□ Les Enfants de l’ordinateur 

□ Les Pirates de l'informatique 

40. Que signigie le mot BASIC? : 


43. En 1983, on pouvait acheter 
l’EACA. De quoi s’agissait-il? : 

□ un modem 

□ un micro-ordinateur 

□ une imprimante 

44. Les frères Beagle : 

□ ont écrit le système MS DOS 

□ sont des éditeurs de logiciels 

□ ont fabriqué le premier lecteur de 
disquettes 

45. Qu’est-ce que l’hyphen?: 

□ le signe “ = ” en anglais 

□ le signe “ + ” en anglais 

□ le signe en anglais 


49. Parmi ces trois micros, un seul 
n’est pas au standard MSX : 

□ Canon V20 

□ Spectravidéo SVI728 

□ Laser 3000 

50. L’un des auteurs de Mandra¬ 
gore se trouve ici : 

□ François Dup n 

□ Marc Cecchi 

□ Jean-Loup Renault 























































ordinateur au cadre familial, quatre logi¬ 
ciels sont fournis avec la machine : 
DOSHLP un aide à l’utilisation du MSX- 
DOS, Designer un logiciel de dessin, et 
un traitement de texte et un gestion¬ 
naire de fiche réunis sous le nom de 
Home Office (prononcez homme au fils. 
Y-a-t-il un joke dans ce terme? Dans le 
dictionnaire on trouve ministère de l’In¬ 
térieur). 

DOSHLP propose les commandes du 
DOS sous forme de menus pilotés par 
les flèches et les touches fonctions, 
donc faciles à utiliser. Il permet de voir 
le catalogue d’une disquette, de pas¬ 
ser au Basic, de formater vos disquet¬ 
tes, d’effacer, rebaptiser ou copier des 
fichiers, afficher le contenu d’un fichier 
ASCII, changer la date du système et 
enfin imprimer le répertoire, tout cela 
sans rien connaître au DOS grâce à des 
menus d’aide. 

Home office un programme de ges¬ 
tion de fiche qui n’a d’étonnant que le 
fait de travailler avec des fiches double 


P hilips annonce la couleur. Le la¬ 
bel MSX passe au second plan 
par rapport au label N.M.S. pour 
New Media System. L’ordinateur doit 
donc s’insérer naturellement dans la 
chaîne vidéo-son de l’avenir. Cet avenir 
n’est probablement pas si loin. Le VG 
8235 ne serait que la première pièce 
du puzzle. Le VG 8235 est un MSX2. La 
plupart de ses caractéristiques sont 
semblables à celles du Sony HB 500 F 
(voir Micro V.O n° 6). Nous nous atta¬ 
cherons donc surtout aux différences 
entre les deux machines. La machine 
se présente en un bloc, moniteur mis à 
part. Le clavier à inclinaison variable est 
fixé à l’unité centrale dans laquelle on 
trouve le lecteur de disquette. A la diffé¬ 
rence du Sony, ce lecteur de disquette 
est simple face et d’une capacité de 
360 Ko. C’est peut-être un peu petit si 
l’on considère qu’un écran haute réso¬ 
lution occupe 50 Ko sur disquette ce 
qui permet de stocker un maximum de 
six écrans non compactés. En revan¬ 


che, une capacité de 128 Ko de mé¬ 
moire vive (contre 64 au Sony) devrait 
satisfaire les développeurs en langage 
machine. Le Basic ne gère toujours 
que 32 Ko, mais une partie de la mé¬ 
moire supplémentaire peut être utilisée 
pour stocker des fichiers séquentiels. 
Ceci permet, par exemple, de stocker 
des DATAs sous forme de fichiers sé¬ 
quentiels mais ne peut en aucun cas 
être considéré comme un disque vir¬ 
tuel. En effet, toutes les commandes du 
DOS ne fonctionnent pas avec la Mini¬ 
mémoire (Copy, Bsave...). Et c’est 
dommage. Le Philips possède deux 
fentes à cartouche (contre trois au 
Sony). Ces fentes permettent de mettre 
des programmes en cartouche, des 
lecteurs de disquettes supplémen¬ 
taires (double face, pourquoi pas), de la 
mémoire vive (il faut pouvoir la gérer), 
des interfaces (RS232, synthétiseurs, 
etc). 

De l’homme au fils. 

Philips voulant intégrer en douceur son 


Philips sort le VG8235. Au standard MSX2, il préfère 
l’appellation NMS, pour New Media Systems. Ce 
micro serait, en effet, le premier élément d’un 
ensemble de traitement de données aussi variées 
que les images, les sons, la télématique, etc. 


PHIUPS VG 8235 

LABELS 

ET 

LA BETE 
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L’arrière du VC8235. Une fente pour cartouche, un connecteur TV Pal, un connecteur 
pour lecteur de cassettes, une sortie imprimante, une, sortie Péritei, une sortie moniteur 
noir et blanc, le bouton marche-arrêt, le connecteur pour second lecteur de disquette. 


Du graphique, une grande spécialité du VG8235 MSX2 de Philips. Une 
résolution graphique de 512 par 212 en 16 couleurs parmi 512, ou 526 
par 212 en 256 couleurs, sans bavure! L'affichage est piloté par un 
processeur graphique rapide et puissant qui décharge encore davantage 
le processeur principal. 


(comptez au moins 2500 F de plus). 
Designer permet de dessiner en 256 
couleurs. Les multiples fonctions qu’il 
vous propose sont sélectionnées par 
des pictogrammes. C’est un bon logi¬ 
ciel de dessin, mais, bien que l’on 
puisse dessiner avec un joystick ou les 
touches curseur, ce programme né 
prend un véritable intérêt qu’avec une 
souris ou une tablette graphique qu’il 
faudra prévoir d’acheter en plus. 

Deux MSX2 sont sur le marché. Ils ont 
tous les deux le lecteur de disque inté¬ 
gré. Les performances, pas seulement 
graphiques de ces machines, de¬ 
vraient (enfin) attirer les développeurs 
de logiciels. Ceci nous aiderait à pa¬ 
tienter en attendant la prochaine pièce 
du puzzle. 


face. Un peu simplet, visiblement fait 
pour un MSXI. Mais ça marche. Le trai¬ 
tement de texte n’est pas mal car il 
possède la plupart des fonctions d'un 
traitement de texte. Mais je pense que 
l’on devrait trouver mieux sur un MSX2. 
La gestion de fiche et le traitement de 
texte travaillent en collaboration pour 
vous permettre de faire du mailing 
(courrier automatique). Cela dit, un trai¬ 
tement de texte ne sert à quelque 
chose que si l’on a une imprimante 


Pesi9n 86/223a 


FICHE TECHNIQUE 

• Nom : VG 8235. 

• Constructeur : Philips. 

• Microprocesseur : 280 à 3,58 MH. 
Processeur vidéo YM 9938. 

• Mémoire morte : 48 Ko Basic, 16 
Ko Disc Basic. 

• Mémoire vive : 128 Ko de mémoire 
principale. 128 Ko de mémoire vi¬ 
déo. 

• Système d’exploitation : MSX 

DOS. 

• Lecteur de disquette interne : 3,5 

pouces, 360 Ko simple face. 

• Lecteur de disquette externe : 

n’importe quel lecteur MSX. 

• Ecran : jusqu’à 80 colonnes en 
mode texte. Jusqu’à 512 x 212 en 
16 couleurs parmi 512, ou 256 x 212 
en 256 couleurs. 

• Clavier : Azerty, touches curseurs 
servant de joystick intégré, touches 
fonctions. 

• Connecteurs : RGB DIN 8 broches, 
interface cassette, interface impri¬ 
mante parallèle, 2 connecteurs 9 
broches pour joystick, 2 fentes car¬ 
touches MSX. 

• Prix conseillé : avec les quatre logi¬ 
ciels présentés : 4990 F sans moni¬ 
teur, moins de 5990 F avec moniteur 
noir et blanc, moins de 7990 F avec 
moniteur couleur (présenté ici). 


François Dupin 
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DRE FOUES 



Configuration de base Amiga. 

Prix: 16300 Fht. 

1 - Unité centrale Amiga. Processeur 
principal:68000 Motorola 16/32 bits. Mé¬ 
moire centrale de 512 Ko. 256 Ko de RAM 
protégé. Lecteur de disquette intégré de 
3”5 d’une capacité de stockage de 880 
Ko. Interfaces : sorties série, parallèle, vidéo 
RVB, analogique et digital ; entrée vidéo ; 
sortie son stéréo. Multifenêtres et fonction¬ 
nement multitâche. 

2 - Moniteur référence 1081. Résolution 
640 x 400 pixels. 4096 couleurs disponi¬ 
bles. 

3 - Clavier QWERTY, bientôt AZERTY. 
Détachable, 89 touches dont 2 de fonc¬ 
tions spéciales, 10 de fonctions program¬ 
mables, un bloc numérique de 13 touches, 

4 touches curseur, 1 touche « Help ». 

4 - Souris. Dispose de deux boutons : l’un 
fait descendre les menus, l’autre choisit les 
options. 

Périphériques 

5 - Lecteur de disquette externe 3” 5. 

880 Ko formatés. Prix: 3250F ht. 

6 - Lecteur de disquettes externe 

5” 25. Double face, double densité, capa¬ 
cité formatée de 360 Ko. Permet de lire et 
d’écrire les fichiers IBM-PC et d'exécuter 
des programmes, le 68000 émulant le pro¬ 
cesseur 8088 du PC. 

Prix : environ 3 500 F ht. 



7 - Pen mouse. Tablette graphique avec 
crayon pour Amiga. Prix: n.c. 

8- Genlock. Interface de communication 
pour diriger en synchronisation une régie 
vidéo. Prix: non encore fixé. 

9 - Extension RAM de 2 Mo. Référence 
AX 2000. Fabriquée par Comspec. Distri¬ 
buée par Run Informatique. Augmente la 
capacité mémoire et la vitesse d’exécution. 
Prix :8450 F ht. 

10 - Digiview. Digitaliseur d’images livré 
avec des filtres, permet de digitaliser des 
images couleur avec une caméra vidéo noir 
et blanc. Distribué par B.G. Diffusion. Prix: 

2520 Fht. 
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1 - C64 «new look». 64 Ko de mémoire 
centrale. Résolution graphique 320 x 200 
pixels, 16 couleurs. Son : 3 voix sur 9 octa¬ 
ves. Plus de 6000 logiciels à ce jour. Prix: 

1990 Fht. 

2 - moniteur 1901. Couleur. Commun 
au C64 et au Cl28. Prix: 3990F ttc. 

3 - Music Maker. Clavier à installer sur le 
C64. Prix: n.c. 

4 - Sound Expander. Se compose d’une 
interface et d'un logiciel. Prix: 1 299 F ttc. 

5 - Joystick. Blanc. Prix: 60F ttc. 

6 - Joystick. Gris. Prix: 80F ttc. 

7 - Lecteur de disquette 5” 25. Réfé¬ 
rence 1541. «New look». Pour le C64. Ca¬ 
pacité de stockage: 170000 caractères, 
Prix: 1990 Fht. 

8 - Microvox. Echantillonner vocal. Livré 
avec casque, microphone et logiciel. Ver¬ 
sion normale : 2 945 F. Version profession¬ 
nelle: 3495 F. 

9 - Imprimante MPS 803. Matricielle bi¬ 
directionnelle. 60 cps. Entraînement à fric¬ 
tion. Caractères Commodore. 

Prix: 1690F ttc. 

9 bis - Tracteur pour papier en option. 
Prix: 250F ttc. 

10-Voice Master. Synthétiseur vocal. 
Distribué par Run Informatique. 

Prix: 860 F ttc. 

11 - Souris Datex pour C64. Avec logi¬ 
ciel, en promotion chez Run Informatique. 
Prix: 599F ttc. 

12 - ComputerEyes, digitaliseur pour 
C64 de Digital Vision. Prix: n.c. 

13 - Power Cartridge chez KCS, le toolkit 
le plus vendu, à juste titre. Prix : 495 F ttc. 

14- Super Sketch. Tablette graphique 
avec logiciel pour C64. Prix : 800 F ttc. 

Le Magnétocassette Commodore, non 
représenté, est vendu 340F ttc. 
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OMMODORE FOUES 







1 - C128D. Trois modes de 
fonctionnement: mode 128 
(128 Ko de RAM, 48 Ko de 
ROM, Basic 7.0, affichage 40 
ou 80 colonnes), mode 64 (64 
Ko de RAM, 20 Ko de ROM, 
Basic 2.0, affichage 40 colon¬ 
nes), mode CP/M (128 Ko de 
RAM, CP/M Plus version 3.0). 
Lecteur de disquette 5”25 inté¬ 
gré. Livré avec les logiciels 
Janee t Tap 128. 

Prix: 6990Fttc. 

2 - Moniteur 1901 couleur. 
Commun au C64 et au Cl 28. 
Système PAL en 40 colonnes, 
RGBI en 80 colonnes. Fré¬ 
quence image 50 hz. Définition 
660 pixels. Prix: 3990Fttc. 

Le Cl28 a les mêmes capaci¬ 
tés, mais pas de drive intégré. 
Prix: 3390Fttc. 

3 - Lecteur de disquette 

5” 25. Référence 1571. Pour 
C128. Prix: 3490Fttc. 



4 - Modem Digitelec. Réfé¬ 
rence DTL 2000. La communi¬ 
cation télématique pour C64 et 
C128. Prix: 1490F version 
V23 (Réseau Télétel). 1990 F 
version V21 + V23. 2 750 F 
Référence DTL 2100 (Appel et 
Réponse automatiques). 

5 - Souris Commodore pour 
les C64 et Cl 28. 

Prix: 590Fttc. 

6- Interface PAL/SECAM, 

uniquement pour le Cl 28. 

Prix: 450Fttc. 

7- Clavier du Cl 28, livré avec 
l’unité centrale. Clavier double 




AZERTY/OWERTY type ma¬ 
chine à écrire, 92 touches, 
pavé numérique, touche 
« Help», 8 touches de fonction 
programmable, 6 touches de 
curseur, touche permettant le 
passage du mode AZERTY au 
mode QWERTY. 


Jean-Loup Renault 
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LE MAGAZINE DE LA MICRO PASSION 










BINGOBOSCOPE 

(initiation) 

KRYPTON 

(MSX) 

LAPIN PRESSE 

(Tl 99) 

AMSFILE 

(Amstrad) 

CONCEPT 

(Apple II) 

TRACKER 

(C128) 


M0N0P0LY 

(T07-70) 



(C64) 



CAHIER DES AS 

OTHELLO 

(Atmos) 
















Edito 


Quelques «add-on »àce 
poupon - lunettes et 
cigare - et vous avez 
devant vous votre 
éditorialiste préféré 
prenant le frais. 



Le concours continue. Ce mois-ci, nous avons Mistral gagnant. Je sais, c’est facile, 
mais je n’ai pas pu résister! 

J’ai fait un petit calcul pour m’amuser. Depuis le début de Micro V.O., nous avons déjà 
récompensé vos programmes par plus de 150 000 F de lots. Ce qui fait plus de 600 F, 
en moyenne, par page publiée. Alors, envoyez-nous vos programmes accompagnés du 
bon de participation au : 120, avenue Charles de Gaulle, 92522 Neuilly Cedex. Vous ne 
le regretterez pas. Que ceux qui ont envoyé leurs programmes rue Jacob ne s’inquiètent 
pas, ils sont bien parvenus à Neuilly. 

Le bon de participation du mois dernier avait sauté. J’espère que vous ne l’avez pas 
cherché trop longtemps. En voici un tout neuf ci-dessous. 

Dans la série «les ennuis arrivent en série», nous avons eu 
quelques problèmes avec le programme SOS RSX pour le¬ 
quel le listing a été monté dans le désordre... Faites atten¬ 
tion aux adresses. De plus, quelques lignes ont sauté dans le 
programme Pacman pour MSX de Yves Ada (cahier n° 7). Le 
programme tourne sans ces lignes, malgré quelques ano¬ 
malies d’affichage. Voici ces lignes, accompagnées de nos 
excuses les plus plates... 

P.S. Nous ne pouvons pas communiquer les adresses des 
auteurs de programme, mais vous pouvez leur écrire par no¬ 
tre intermédiaire, ils vous contacteront s’ils le désirent. 

François DUPIN 



C8DA->C913 : 


ROUTIHES 


C8DÂ 211EEQ3A34E0BEC0 1003 

C8E2 3A18E03C3218E0CD 

869 

C8EA 65C93A34E007FE0A 

907 

C8F2 3801AF3234E0C921 

792 

C8FA 14C916003A3DE03C 

646 

C902 323DE0E6O7075F19 

699 

C90A 7E323BE0237E323C 

730 

C912 EQC970405070F050 1113 


FICHE À RETOURNER AVEC VOS LOGICIELS. 


Machine. 

Nom: . 


Extensions: . 

Prénom:. 



Adresse:. 


Cassette □ Disquette □ 



Langage: . 

Code Postal: . 

.Ville:. 

Proqramme 

■J i - i i_ > i _j k_ i k_ j i_ i k_j i_ j 

Tel: . 

Date: / /86 


N’hésitez pas à nous envoyer vos programmes sur support magnétique. Nous vous expédie¬ 
rons en échange une disquette ou une cassette vierge, correspondant à votre expédition. 
Ces disquettes et cassettes vous sont offertes par SCOTCH. 



























LU 


KRYPTON 

Langage: Basic. 


Damien Vincent. 

Seize ans. En classe de seconde scien¬ 
tifique. Damien programme depuis 
deux ans et demi. Il envisage une car¬ 
rière dans l’informatique. Ses loisirs : 
les sports d’équipe. 


V oilà un programme qui va 
enchanter tous les amateurs de 
jeux impliquant de l’adresse et de 


DAMIEN VINCENT 

gagne 

UN CANON V 20 
ET 3000 F 
BON D’ACHAT 

APPLICATION^ 


la concentration. Votre rôle est de 
retrouver le trésor de l’ancienne 
civilisation, appelée Krypton, 
aujourd’hui disparue. Ce trésor est 
situé tout au fond d'une grotte 
composée de 16 chambres 
successives et il est excessivement 
bien protégé. Toutes les parois sont 
mortelles. Pour les éviter, vous êtes 
équipé d’un réacteur dorsal actionné 
par la barre d’espace ou par la touche 
de tir du joystick. Mais attention, si vous 
appuyez trop longtemps, vous vous 
écraserez contre la voûte et si vous 
oubliez d’appuyer, c’est le sol qui verra 
votre mort. Vous pouvez avancer ou 


reculer avec les touches de direction 
ou le joystick. Chaque salle contient 
des pièges qu’il vous faudra éviter 
(portes et objets mouvants, gouttes de 
lave suintant du plafond, missiles, etc.). 
Vous avez droit à plusieurs vies et vous 
repartez chaque fois de la salle qui vous 
a vu mourir. (NDLR: nous avons été 
contraint de confisquer le jeu car 
l’équipe du Cahier des logiciels, les 
doigts crispés sur le clavier et les yeux 
accrochés à l’écran, était devenue 
improductive. On le leur rendra pour les 
vacances). 

Damien VINCENT 


0 SCREEN 2 

10 VI=6:COLOR 15,1,1 

20 SCREEN 2:PSET(B0,100) : DRAW A0C11S13H5 

E5L4F1R164U3E1H1L2F1D9G1R2E1L1U4R1F4L161 

R4H1C15BR2 R2H1U1R1D1F1R1E1L1H1R1E1U2H1L 

3G1D5BR1BU3U2R361F1L3BD3BL1BR7E2H4R3G1F2 

U3R261D4G1L2" 

30 DRAWBR5E1U4H1R4F1D161L1G1D1R1G1L2BR2 
BU3U2R1F1L161BD3BL2C4BR6E1U6L22E1R34E1R5 
62L16D6R1G1L2C15" 

40 DRAN'BR6H1U4E1R3F1D4S1L3BU1U1R1U2H1R2 
F1D3L3BR5U4H1R2F3U2E1R1G1D3F1G1L1H1R1H3D 
3R1G1L2EP 

50 DRAM * BF3L 43E2L363R52E3L562L1" 

60 OPEN'GRP:■FOROUTPUT ASfl 
70 COLOR 13:C1RCLE(15,1701,5,13:PSET <12, 
167):PRINTI1,'C';:PRINTtl,* d. 6 e. VIN 
CENT - 1986 -* 

80 FOR T=1 TO 3 

90 PLAY'LB 02V14AV13AV11AV9AV7AV5AV3A', " 
L8 01V14AV13AV11AV9AV7AV5AV3A" 

100 NEXT 

110 FOR 6=1 T01800:NEXT:CLOSEtl 

120 SCREEN 0:COLOR 15,4,4 

121 FOR T=1 TO 5:KEYT," ":NEXT 

122 PRINT;PRINT:PRIMT:PRINT:PRINT: PRINT: 
PRINT:PRINT:PRINT:PRINT" ONE PLAYER MITH 

JOYSTICK -> 1* 

123 PRINT:PRINT" ONE PLAYER MITH KEYB0AR 
D -> 2* 

124 XX$=INKEY$: IF XX$=" THEN 124 


125 IF XX$>"2* OR XX*<*1* THEN 124 

126 IF XXt=T THEN JY=1 ELSE JY=0 
130 VS=7 

140 COLOR 15,4,1 
150 SCREEN 2,2,1 
160 0PEN"6RP:'FOROUTPUT AStl 
170 BRAN 'A0' 

180 SPRI TE* ( 8) =CHR$ ( 681 1000000 > +CHR* ( ItB 1 
1000000 ) 

190 F0RT=1 T0 32:A$='11111111':TI=T$+CHR 
$(VAL('4B'+A$)):NEXT:SPRITE$f9)=T$:T$=" 
200 DATA 0,0,00000111,00000111,00000111, 
00000111,00000011,00000001,0,00000001,00 
000001,00000001,00000010,00000100,000010 
01,00001001 

210 DATA 01100000,01000000,01100000,1100 

0000 , 01000000 , 01000000 , 00111000,11 oooooo 
, 0 , 11000000 , 01000000 , 01000000 , 10000000,1 
0000000 , 0,0 

220 F0RT=i T0 32: READ A*: T*=T*+CHR* (VAL ( 
'6B'+A$)):NEXT:SPRITE$(1)=T$:T$=" 

230 DATA 0,0,0,0,011111111,11111111,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 01100000 , 11100001,11 
010010 , 11001000 , 11100001 , 01100000 , 0 , 0 , 0 , 
0 , 0 , 0 , 0,0 

240 F0RT=1 T0 32:READ A$:T$=T$+CHR$(VAL< 
'4B'+A$)):NEXT:SPRITE$(4)=T$:T$="’ 

250 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
, 01010101 , 11111111 , 11111111 , 11111111,111 
11111,11111111,11111111,11111111,1111111 
1 , 11111111 , 11111111 , 11111111 , 11111111,11 


111111,11111111,10101010 

260 F0RT=1 T0 32:READ A$:T$=T$+CHR$(VAL( 

'4B'+A$)):NEXT:SPRITEI(5)=T$: T$=" 

270 DATA 0,0,00000111,00000111,00000111, 
00000111 , 00000011 , 00000001 , 10011000,0011 
0001 , 01000001 , 10010001 , 00000010,10000100 
, 00001001,00001001 

280 DATA 01100000,01000000,01100000,1100 
0000 , 01000000 , 01000000 , 00111000,11000000 
, 0 , 11000000 , 01000000 , 01000000 , 10000000,1 
0000000 , 0,0 

290 FQRT=1 T0 32:READ A$:T$=T$+CHR$(VAL< 
'6B'+A$>):NEXT:SPRITE$(2)=Î$:T$=" 

300 VI $='C9S2A0BR20F565D5R5BL5D5F5BL10E5 
BU5L5BE5H5E5' 

310 SPRITE$(3)=CHR$(6B00001000)+CHR$(6B0 
) +CHR$ (6800001000) +CHR4 (4B00011000)+CHR$ 
16BOOO11000)+CHR416B00111000)+CHR4(4B001 
11000)+CHR$(iBOOOlOOOO) 

320 SPRITE*(6)=CHR$(6B10001000)+CHR$(6B1 
1100000) +CHR$ (4B01101001 ) +CHR* (6B0011111 
1)+CHR$16B00111000) +CHR4 (6B11110000)+CHR 
$16801100000)+CHR$16B01000000) 

330 SPRITE$(7)=CHR$(6B00000100)+CHR$(6B0 
0000000)+CHR$(6B00001010)+CHR$(4B0011111 
0)+CHR$(4B01111000)+CHR$(6B01110000)+CHR 
$(4B11100000)+CHR$(4B01000000) 

340 ST$(1)='C1S7D1F2 D1F1L1D1F3L1D3F261R 
2F1D2G1R1D4G1D5E1U3E2U1R1H1 U7E1H1E1U2R 
1H1U1E3U2E1 U1 

350 ST$(2)='C1S7D1F2D2E1F1D2R161D2F2L1D2 


FICHE 
















FICHE PROGRAMME 


E1D7F1U3E1U1L1E2U2L1E1U2E2U2F1U2E1H1R2E1 

U3" 

360 ST$(3)="C1S7D1F1R261F2D1R1D161D2E1F1 
D6E1U1E2U1E1H1E1U3H1R4E2U2* 

370 DATA 0,01000100,00100100,10000000,01 
001111,00011000,00010000,10110010,001111 
11,00100000,10111111,00110000,00100100,1 
0100010,00110000,10111111 
380 DATA 0,10001000,10010001,00000010,11 
110000,00011001,00011000,00100100,110011 
01,00111100,11010100,11010101,01010100,0 
1011100,11011001,11010000 
390 FüRT=l T0 32:READ A$:T$=T$+CHR»(VAL( 
■îtB’+AS) ) : MEXT : SPRITE4 (23) =T$:T$=" 1 
400 X=10:Y=80:IN=0:LINE(0,0)-(255,40),1, 
BF: LINE (0,140M255,191) ,1,BF 
410 PSET(128,10): FOR T=1T0VI:DRAN"A0S4": 
DRANVI4:NEXT:C0=C0+1:PSET(60,170):PRINTi 
1."TABLEAU N- 1 ";CO 
420 GOSUB 600 
430 IF X>=230 THEN 450 
440 GOTO 420 

450 CLS:X=10:Y=100:IN=0:LINE (0 ,0)-(128 
,88),1,BF:LINE(148,98)-(255,191),1,BF: 
460 LINE(0,0)-(255,30),1,BF:LINE(0,150)- 
(255,191),1,BF:PSET(128,10): FOR T=1TQVI: 
DRAN"A0S4":DRANVI4:NEXT:CO=CO+1 : PSET(60, 
170)iPRINTIl,"TABLEAU N-“;CO: GOSUB 600 
470 GOSUB 600 

480 IF X >=230 THEN CLS:GOTO 500 
490 GOTO 470 
500 GOSUB 510:60T0 710 
510 BEEP 

520 PUT SPRITE 1,(20,180,0,1 

530 SPRITE OFF: FOR T=1 TO 10:PUT SPRITE 

T,(T,0),0,12:NEXT 

540 A$="V9T32L3204R32EAQ5C04BEB05DL16CEO 
4B405E04L32AEA05C04BEB05DL16C04A8R16 * :A 
1$="V9T32L3202A1603A8G+16AEA04C03BEB04DL 
16C03AG+EL32AEA04C03BEB04D" : PLAYAt,Al $ 
550 FOR T=0 T0275STEP20: DRAW"AO":PSET(T, 
35) : DRANST4 ( INT (RND ( 1 ) 13) +1 ) : DRAN"A2" : PS 
ET(T,143): DRAW ST*(INT(RND(l)t3)+l):NEXT 
560 LINE (0,0)-(255,30),1,BF:PAINT(128,3 
1 ),1: LINE (0,191)-(255,148),1,BF:PAINT(1 
28,147),1:LINE(0,40)-(20,140),4,BF 
570 PSET(128,10): FOR T=1T0VI: DRAM"A0S4": 
DRAHVIS:NEXT 

580 C0=C0+1:PSET(60,170):PRINTI1,"TABLEA 
U N- 1 ";CO 
590 RETURN 

600 A=STICK(JY):B=STRIG(JY) 

610 IF A=3 THEN X=X+1.5ELSE IF A=7 THEN 
1=1-1.5 

620 IF K15 THEN 1=15 
630 IF AJ=1 THEN B=0 
640 IF VV=1 THEN B=1 

650 IF BOO THEN VS=12: IN=IN-.3:NS=2 ELS 
E IN=IN+.3:NS=1:VS=5 
660 SOUND 8,VS:SOUND 0,0:SOUND 6,15:S0UN 
D 7,7:SOUND 12,16:SOUND 5,16:SOUND 13,0 
670 Y=Y+IN 

680 PUT SPRITE 1,(X,Y),11,NS 


690 IFPOINT(X+11,Y)<>40RP0INT(X+13,Y+6)< 

>4 ORPOINT(X+7,Y+16)<>4 OR POINT(X+5,Y+3 

)<>4 THEN 2170 

700 RETURN 

710 X=10:Y=80:IN=0 

720 GOSUB 600 

730 IF X>=230 THEN 750 

740 60T0 720 

750 CLS:GOSUB 510 

760 X=10:Y=80:IN=0:LINE(128,40)-(178,140 

),1,BF:H=81:N=79 

770 GOSUB 600 

780 IF H)81THEN 8=0 ELSE IF H<50 THEN 8= 

1 

790 LINE(12B,H)-(178,H),CL:LINE(128,N)-( 
178,N),CL 

800 IF 8=0 THENCL=4: N=H-.8:N=N+.8 
810 IF 8=1 THEN CL=1:H=H+.8:N=N-.B 
820 1FX>=230 THEN 840 
830 GOTO 770 
840 CLS:GOSUB 510 

850 X=10:Y=80:IN=0:LINE(128,40)-(178,140 
),1,BF:H=81:N=79:LINE(100,401-1128,140), 
4,BF:LINE(178,40)-(198,140),4,BF 
860 LINE(100,40)-(128,67),1,BF:LINE(100, 
93)-(128,140),1,BF:LINE(178,40)-1198,67) 
,1,BF:LINE(178,92)-(198,140) ,1,BF 
870 GOSUB 600 

880 IF N>81THEN 8=0 ELSE IF N<50 THEN 8= 
1 

890 LINE(128,H)-(178,H),CL:LINE(128,N)-( 
178,N),CL 

900 IF 8=0 THENCL=4: M=M-.8:N=N+.8 
910 IF 8=1 THEN CL=l:M=H+.8:N=N-.8 
920 IFX>=230 THEN 940 
930 GOTO 870 
940 CLS:GOSUB 510 

950 X=10:Y=80:IN=0:L=80:H=47:N=i10:0=130 
960 GOSUB 600 

970 PUTSPRITE2,(112,L),8,3:PUTSPRITE3,(1 
28,H),8,3:PUTSPRITE4,(144,N),8,3:PUTSPRI 
TE5,(160,0),8,3 

980 IFL)=130THENL=40ELSEIFH>=132THENH=40 
ELSEIFN>=132THENN=40ELSEIFO >=130THENO=40 
990 IFX>=230THEN 1030 
1000 L=L+3.5:H=H+1.8:N=N+2.4:0=0+3 
1010 0NSPRITE60SUB2170:SPRITE ON 
1020 GOTO 960 
1030 CLS:G0SUB510 

1040 X=10:Y=80:IN=0:LINE(0,80)-(255,140) 
,4,BF:LINE(24,105)-(32,140),1,BF:LINE(33 
,105)-(255,140),5,BF:LINE(33,105)-(255,1 
05). 1 

1050 GOSUB 600 

1060 IF X>=230THEN 1080 

1070 GOTO 1050 

1080 CLS:GOSUB 510 

1090 X=10:Y=80:IN=0:XX=255:YY=96 

1100 GOSUB 600 

1110 XX=XX-2:IF XX<=0 THEN XX=255 
1120 IF Y<YY THEN YY=YY-.2 
1130 IF Y)YY THEN YY=YY+.2 
1140 PUT SPRITE 3,(XX,YY),9,4 


1150 IF X >=230 THEN 1180 

1160 ONSPRITE60SUB2170:SPRITEON 

1170 GOTO 1100 

1180 CLS:GOSUB 510 

1190 X=10:Y=80:IN=0:00=40:PP=124 

1200 GOSUB 600 

1210 IF 00<40THEN NN=0 ELSE IF 00=124 TH 
EN NN=1 

1220 IF NN=0 THEN 00=00+3 :PP=PP-3 ELSE 
IF NN=1 THEN 00=00-3 :PP=PP+3 
1230 PUT SPRITE 2,(80,00),1,5:PUT SPRITE 

3, (110,PP),1,5:PUTSPRITE4,(140,001,1,5 
1240 ONSPRITEGOSUB 2170:SPRITEON 

1250 IF X>=230 THEN 1270 
1260 GOTO 1200 
1270 CLS:GOSUB 510 
1280 X=10:Y=80:IN=0 

1290 LINE (40,40)-(60,140),4,BF:LINE(40, 
40)-(60,140),1,BF:LINE(110,40)-(130,140) 

,4,BF:LINE(110,40)-(130,140),1,BF:LINE(1 
80,40)-(190,140),4,BF:LINE(180,40)-(200, 
140),1,BF 

1300 LINE (40,97 )-(60,75),4,BF:LINE(110 

,97 )-(130,75),4,BF:LINE(180,97 )-(200,7 

5),4,BF 

1310 GOSUB 600 

1320 IF X>=230 THEN 1340 

1330 GOTO 1310 

1340 CLS:GOSUB 510 

1350 X=10:Y=80:IN=0:LINE(40,30)-(80,80), 

4, BF:LINE(40,30)-(80,40),12,BF:LINE(200, 
140)-(160,80),4,BF:LINE(200,i40)-(160,15 
0),12,BF 

1360 GOSUB 600 

1370 IF X>40 AND X<80 THEN IN=IN-.25 

1380 IF X>160 AND X<200 THEN INMN+.2 

1390 IF X>=230 THEN 1410 

1400 GOTO 1360 

1410 CLS:GOSUB 510 

1420 LINE(0,40)-(160,140),4,BF 

1430 X=10:Y=80:IN=0 

1440 LINE (30,140)-(40,65),1,BF:LINE(55, 

40)-(65,115),1,BF:LINE(80,140)-(90,65),1 

,BF:LINE(105,40)-(115,115),1,BF:LINE(130 

,140)-(140,65),i,BF 

1450 GOSUB 600 

1460 1F X >=230 THEN 1480 

1470 6QT0 1450 

1480 CLS:GOSUB 510:XX=80:YY=40:00=180:PP 
=40 

1490 X=10:Y=80:IN=0:LINE(70,40)-(80,140) 
,4,BF:LINE(180,40)-(190,140),4,BF:LINE(7 
0,40)-(80,50),1,BF:LINE(70,140)-(80,130) 
,1,BF:LINE(180,40)-(190,50),1,BF:LINE(18 
0,140)-1190,130),1,BF 
1500 GOSUB 600 

1510 IF 66=0 THEN XX=XX+7:YY=YY+7 
1520 IF G6=l THEN 00=00-7:PP=PP+7 
1530 IF XX>180 THEN 66=I:XX=80:YY=40 
1540 IF 00<80 THEN GG=0:00=180:PP=40 
1550 0NSPRITEGOSUB217O:SPRITEON 
1560 PUTSPRITE3,(XX,YY),1,B:PUTSPRITE4,( 
00,PP),1,8 
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1570 IF X>=230 THEN GOTO 1630 
1580 6QT0 1500 

1590 PUT SPRITE2,(0,85),1,9:PUTSPRITE3,! 

P,85),1,9:PUTSPRITE4,(B,85),1,9 

1600 IF 0>255 THEN 0=32ELSEIFP>255THENP= 

32ELSEIFB>255THEN 0=32 

1610 IF 10230 THEN 1630 

1620 GOTO 1700 

1630 CLS:60SUB 510 

1640 X=10:Y=80:IN=0 

1650 LINE(0,38)-(255,140),4,BF:LINE(100, 
37)-(100,43),1:LINE(100,140)-(100,135),1 
:LINE(115,37)-(115,43),1:LINE(115,140)-( 
115,135),1 

1660 LINE (190,37)-(190,43),15:LINE(190, 

140)-(190,135),15:LINE(205,37)-(205,43), 

15:LINE(205,140)-(205,135),15 

1670 X=10:Y=80:IN=0 

1680 0=32:P=112:Q=192 

1690 60SUB 600 

1700 IF X+16>190ANDX<205 THEN VV=1ELSEVV 
=0 

1710 1F X+16M10 AND X<115 THEN AJ=1 ELS 
E AJ=0 

1720 IF X>230 THEN 1740 
1730 GOTO 1690 

1740 CLS:60SUB 510 :X=10:Y=80:IN=0:0=107 

:P=180:0=254 

1750 GOSUB 600 

1760 PUT SPRITE2,(0,851,1,9:PUTSPRITE3,( 

P,85),1,9:PUTSPRITE4,(0,851,1,9 

1770 IF 0>235 THEN 0=32ELSEIFP>235THENP= 

32ELSEIFO>235THEN 0=32 

1780 IF X>230 THEN 1810 

1790 0=0+2:P=P+2: 0=0+2:ONSPRITEG0SUB2170 

iSPRITEON 

1800 GOTO 1750 

1810 CLS:GOSUB 510:X=10:Y=80:IN=0 
1820 LINE (255,35)-(210,140),1,BF:LINE ( 
100,120)-(110,0 ),4,BF:LINE (100,35)-(10 
8,33),1,BF:LINE(210,70)-(230,90),4,BF :P 
UT SPRITE 23,(210,74 1,11,23 :TE=3:00=0 
1830 GOSUB 600 

1840 IF TE=1 THEN 00=00+.9:PP=PP-.9:LINE 
(160,00)-(190,00),1 : LINE(160,PP)-(190,PP 

M 

1850 IF 00>80 THEN TE=0 
1860 ON SPRITE GOSUB 1900:SPRITE ON 
1870 IF TE=0 AND X>190 THEN AJ=1 
1880 IF Y<10 THEN GOTO 1910 
.1890 60T0 1830 

1900 LINE(100,35)-(108,33),4,BF:PUT SPRI 
TE 23,(255,191),0,0:00=35:PP=140:TE=1: TR 
=1:RETURN 

1910 IF TR=1 THEN 1980 ELSE SCREEN 1 
1920 COLOR 12,1,1 

1930 PRINT:PRINT:PRINT* VOUS AVEZ REU 

SSI A SORTIR' 

1940 PRINTiPRINT' *ais sans le TRESOR 

■ 

1950 PRINT:PRINT:PRINT:PRINT:PRINT' pour 
recoiaencer appuyer 

ENTER' 


1960 FOR T=1 TO 5:KEYT,' ':NEXT 

1970 INPUT A: RUN 
1980 CLS 

1990 CIRCLE (100,170),30,11 : PAINT(100,17 
0),11: LINE(0,191)-(255,170!,9,BF 
2000 DATA 0,0,0,0,00000011,00000011,0000 
1111 , 00011111 , 00010011 , 00010011,11111111 
, 11111111 , 11111111 , 11001111 , 01001000,001 
10000 , 0 , 0 , 0 , 0 , 11111111 , 11111111,11111111 
jiimiii,îuinii, îniiiu, îiniiii, ni 
11111 , 11111111 , 11110011 , 00010010,0000110 
0 

2010 RESTORE 2000:F0RT=1 TO 32:READ A»:T 
)=T»+CHR»(VAL('4B'+At)):NEXT:SPRITE»(5)= 
T$:T$=" 

2020 FI$= * AOS12C15R13E1R2G2L12D3R1E1D1S1 
L1D2F1L2H1R1U6H18F7L1H1E1U2E1D5BR1E1U3H1 
R1F1D2E1U2F1D4H1U1G2L1' 

2030 PSET(60,50): DRAW FI» 

2040 PUT SPRITE 5,(50 ,1541,12,5 
2050 PUT SPRITE 1,(0,0),0,0 
2060 NU»=*C15H2U2E2R2U2E2R2F2D2F2E2U2E2R 
4F2R2F2D2G2L2G2L18' 

2070 PSET(200,40): DRAW NUt:PAINT (202,38 
), 15 

2080 PSET(140,70):DRAN'S5':DRAN NU*:PAIN 
T (142,681,15 

2090 PSET(20 ,60):DRAN'S7':DRAN NU»:PAIN 
T (22 ,58),15 

2100 H0»='S19E1R1E4F2E1F2R1E5F2R1F3R1F1R 
1F1L27' 

2110 PSET(145,170),1 : DRAW NO»:PAINT(160 
,165),1 

2120 X=128:FOR T=191 TO 144 STEP-.5:G0SU 
B 2140:NEXT: FOR X=128 TO 55STEP-.5:G0SUB 
2140:NEXT:FOR T=144 TO 154STEP .5:GOSUB 


2140:NEXT 

2130 FOR T=50 TO 0 STEP -1:PUT SPRITE1,( 
T,154),12,5 : PUT SPRITE 5,(0,0),0,0:NEXT 
: GOTO 2160 

2140 PUT SPRITE 1,(X,T),15,1:RETURN 
2150 FOR T=55 TO 0 STEP -1:PUT SPRITE 
2160 GOTO 2160 

2170 SPRITE OFF:LINE (128,10)-(255,37),1 

,BF:VI=VI-1:XX=255:TR=0:AJ=0 

2180 BEEP:PLAY'L6401V15AEV12AEV10AEV7AEV 

3AE', 'L6403V15AEV12AEV1OAEV7AEV3AE' 

2190 FOR T=1 TO 15 :PUT SPRITE 1,(X,Y),1 

5,6:F0RD=1T0 20:NEXT:PUTSPRITE1,(X,Y),15 

,7:X=X+2: Y=Y-2:F0RD=1T020:NEXT:NEXT 

2200 IF VI=0 THEN 2230 

2210 PSET(128,10):FDR T=1 TO VI:DRAN'S4A 

0':DRAMVIS:NEXT 

2220 X=10:Y= 90:IN=0:G0T0 600 

2230 FOR T=1 TO 500:NEXT:SCREEN 0:PRINT: 
PRINT:PRINT:PRINT:PRINT:PRINT' VOUS ETES 

HORT AU TABLEAU ';CO;:PRINT:PRINT:PRINT 
:PRINT:PRINT:PRINT'autre partie ? (0/N)' 

2231 XX»=INKEY):IF XX»=” THEN 2231 

2232 IF XX»='0' THEN RUN ELSE IF XXIO'N 
' THEN 2231 

2240 F0RT=5T011 :PLAY'V=T;L6403 ADAE','V 
=T:L6403 BCBC':NEXT 
2250 F0RT=3T05 :PLAY'V11L640=T:ADAE','V1 
1L640=T;CDCD':NEXT 

2260 F0RT=3T05 :PLAY'V11L640=T;ADAE',*V1 
1L640=T;CBCB":NEXT 

2270 F0RT=11T07STEP-1:PLAY'V=T; L6405 AD 
AE','V=T;L6405 CBCB':NEXT 
2280 JJ=8:F0R T=5 TO 3STEP-1: PLAY * L16V80 
=T;FAFEFD",‘05V8L64 ADAD':NEXT 
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FICHE PROGRAMME 


(ijL Texas 
w * Instruments 

LAPIN PRESSE 

Langage: Basic étendu. 



Christian Farragut 

Soixante-cinq ans. Directeur de 
société en retraite, Christian Farragut 
a commencé à s’intéresser à la micro- 
informatique dès la sortie du Tl 99 sur 
lequel il programme toujours. Aime 
également la pêche et les échecs. 

U n petit lapin est très pressé de 
rejoindre sa petite amie. Comme 
vous avez bon cœur et que vous 
avez pitié de lui, vous allez l'y aider. Il 
vous faudra suivre un chemin 


compliqué tout en évitant une armada 
de monstres prêts à vous croquer. Mais 
tout n’est qu’iHusiori ; dès que le lapin a 
rejoint sa copine, celle-ci s’évanouit et 
un nouveau tableau plus compliqué 
que le précédent vous sépare d’elle, 
puis encore un autre... Les 
déplacements se font de la manière 
suivante : 

A = saut à gauche 
F = saut à droite 
S = un pas à gauche 
D = un pas à droite 


N’importe quelle autre touche vous fait 
effectuer un saut vertical. 

Le listing est en deux parties. Tapez le 
premier, sauvegardez-le, tapez le 
second puis sauvegardez-le à la suite 
du premier. Rembobinez, puis chargez 
le premier programme. Faites RUN et le 
second programme sera appelé 
automatiquement. A ce moment, il ne 
faudra pas rembobiner la cassette. 


Christian FARRAGUT 


100 CALL CLEfiR 

120 CALL CHAR (33, "FFFFFFFFFFFFFFFF",36, * 
80COE0F0F8FCFEFF",35,"FF7F3F1FOF070301") 
130 CALL CLEAR 

140 CALL CHAR(40,"FFFFFFFFFFFFFFFF", 41, ‘ 
80C0E0F0F8FCFEFF",42,"FF7F3F1FOF070301“) 
150 CALL CHAR(43,*0103070F1F3F7FFF’,44,* 
FFFEFCF8F0E0C080") 

160 CALL CHAR(48,"B0C0E0F0F8FCFEFF“,49,■ 
FF7F3F1F0F070301“) 


170 CALL COLORd,1,1,2,1,1,3,1,1) 
180 CALL SCREEN(5) 


190 CALL DSPC! 

+ !!! 

+ i +HI + III+III + 

! + ! ", 2) 

200 CALL DSPC! 

(!(, 

(! (!(!(!(!((!,( 

! 0 ! ", 3) 

210 CALL DSPC! 

! ! ! ",4) 

220 CALL DSPC! 

(!! 

(!, 

(! (!!!(!!! (! ( 

! ! (!(!(!(, (! ( 

! 1 ! ", 5) 

230 CALL DSPC!!! 

(!!! 

(!!!!!(!(! +!!!( 

! ( ! * , 6) 

240 CALL DSPC U, 

(((, 

(((,(,(,(, (((,( 

.(.v> 

250 CALL DSPC 

+ ' " + 

11l+l1t+111+11l+l1 

! ", 13) 

260 CALL DSPC 

(!(!( 

!(!(!(,(!(,(!(,(!( 

. 14) 



270 CALL DSPC 
*.15) 

('"( 

1 1 1 ( 1 1 (lll(lll(M 

(!(,( 

!!,(!, (((!(((!(!, 

280 CALL DSPC 


*,16) 


290 CALL DSPC (i (!(!(!!!+!!!+!!!(!! 

!’,17) 

300 CALL DSPC (, (,(,(((,(((,(((,((( 

,*,18) 

310 CALL DSPC+U !!!!!!!!!!!!!!!!! !!!!!! 
!!!!*. 10 ) 

320 CALL DSPCf ((((((((( ((((((U H (((((( 

(((,*, 11 ) 

330 CALL DSPC+Ü!!!!!!!!!!!!!!!!!!!!!!! 

! ! ! !*, 20 ) 

340 CALL DSP(*(!C M0NR0Y C FARRA 
GUTÜ.21) 

350 CALL DSPCf ((((((((((((((((((( (((((( 
(((,*,23) 

360 CALL DSPCf!!!!!!!!!!!!!!!!!!!!!!!!! 

iiii■ 22) 

370 CALL COLORd,7,6,2,5,6,3,7,5) 

380 CALL MUSIQUE(100) 

390 CALL CLEAR :: CALL CHARSET 
400 CALL CHAR(42, '2424183C3C3C3CE7*) 

410 CALL CHAR < 49,* 1E3A081C3C1EOFFE“) 

420 CALL SCREEN(8) 

440 TBL=1 

450 CALL CHAR (50, * 18187EFF99994224* ) 

460 B0N=9 

470 CALL CHAR(48, *4242FF424242FF42*) 

480 CALL CHAR(42,“2424183C3C3C3CE7*) 

490 CALL CHAR(44,“7CE0383C7E5F0F7F*) 

500 CALL CHAR ( 45, * 3E071C3C7EFAF0FE “ ) 

510 CALL C0L0R(2,7,1,3,10,1) 

520 CALL HA6NIFY(2): : CALL SPRITE(il,44, 
7.1,1,0,-10) 


530 CALL DSP(* LE LAPIN PRESSE ", 

6 ) 

540 CALL DSPf ===============',5) 

550 CALL DSP(* ============= %7) 

560 CALL MUS :: CALL DSPCI1 veut rejoin 

dre sa petite",9) 

570 CALL DSP('a«ie «aigre les «cuistres q 
ui',10) 

580 CALL DSPCrodent pour le tuer", 11) 

581 CALL NOTION (11, 0,-30):: CALL DSPCAi 
dez le !*,13) 

582 CALL DSP("Deplace«ents :",15) 

583 CALL DSPC A : Saut gauche", 17 
) 

584 CALL DSPC F : Saut droit",18) 

585 CALL DSPC S : Un pas a gauche 

", 19) 

586 CALL DSPC D : Un pas a droite 
", 20 ) 

587 CALL DSP("Le reste : Saut en hauteur 

". 21 ) 

588 CALL MOTION(#1,0,-50) 

590 CALL KEY(0,K,'S):: IF S=0 THEN 590 
600 RUN "CS1" 

2440 SUB MUS 

2450 FOR J=1 T0 5 

2460 FOR 1=2000 T0 500 STEP -100 

2470 CALL S0UNDI-200,1,8,2500-1,2) 

2480 NEXT I 
2490 NEXT J 
2500 SUBEND 
2690 SUB DSPfA*,L) 
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2700 FOR 1=1 T0 LEN(A$) 

3330 CALL S0UND(X,FS3,V,D1,V) 

3950 CALL SOUND(X,C3,V,Cl,V) 

2710 CALL HCHARIL,I+2,ASC!SE64 IA$,1,1))) 

3340 CALL S0UND(X,63,V,61,V) 

3960 CALL SOUND IY,D2,V,Cl,V) 

2720 NEXT I 

3350 CALL SOUND(X,63,V,B1,V) 

3970 CALL S0UND(Y,FS2,V,D1,V) 

2730 SUBEND 

3360 CALL SOUND(X,62,V,DI,V) 

3980 CALL SOUND(Y,62,V, 61,V) 

2740 SUB HUSIQUE(VI) 

2370 CALL SOUND(X,62,V,61,V) 

3990 CALL SOUNDIY,62,V,DI,V) 

2750 Ai=l10 

3380 CALL SOUNDLX,62,V,DI,V) 

4000 CALL SOUND(Y,62,V, 61,V) 

2760 B1=123 

3390 CALL SOUND(X,62,V,B1,V) 

4010 CALL SOUNDIX,62,V,El,V) 

2770 Cl=131 

3400 CALL SOUND(Y,E3,V,Cl,V) 

4020 CALL SOUNDIX,A3,V,El,V) 

2780 CS1=139 

3410 CALL SOUND(Y,E3,V,61,V) 

4030 CALL SOUNDIX,83,V,DS2,V) 

2790 Dl=147 

3420 CALL S0UND(X,E3,V,C1,V) 

4040 CALL SOUNDIX,A3,V,DSI,V) 

2800 DSI=156 

3430 CALL SOUND(X,63,V,C1,V) 

4050 CALL SOUNDIX,62,V,B1,V) 

2810 El=165 

3440 CALL S0UND(Y,D3,V,B1,V) 

4060 CALL SOUNDIX,FS2,V,B1,V) 

2820 Fl=175 

3450 CALL S0UND(Y,D3,V,61,V) 

4070 CALL SOUND(Y,62,V,E1,V) 

2830 FS1=1B5 

3460 CALL SOUND(X,D3,V,B1,V) 

4080 CALL SOUND(Y,E2,V,B1,V) 

2840 61=196 

3470 CALL S0UND(X,63,V,B1,V) 

4090 CALL SOUND(Y,E2,V,E1,V) 

2850 A2=220 

3480 CALL SOUND(Y,C3,V,Al,V) 

4100 CALL SOUND(X,63,V,El,V) 

2860 B2=247 

3490 CALL SOUND(X,D3,V,FS1,V) 

4110 CALL SOUNDIX,FS3,V,El,V) 

2870 C2=262 

3500 CALL SOUND(X,C3,V,FS1, V) 

4120 CALL SOUNDIX,E3,V,61,V) 

2880 CS2=277 

3510 CALL SOUND(X,B3,V,61,V) 

4130 CALL SOUNDIX,63,V,61,V) 

2890 D2=294 

3520 CALL SOUND(X, C3,V, 61,V) 

4140 CALL SOUNDIX,FS3,V,B2,V) 

2900 DS2=311 

3530 CALL SOUNDLX,A3,V,D1,V) 

4150 CALL SOUNDIX,E3,V,B2,V) 

2910 E2=330 

3540 CALL SOUND(X,A3,V,El,V) 

4160 CALL SOUNDIX,FS3,V,B1,V) 

2920 F2=349 

3550 CALL SOUND(X,A3,V,FS1,V) 

4170 CALL SOUNDIX,FS3,V,DSI,V) 

2930 FS2=370 

3560 CALL SOUND(X,A3,V,DI,V) 

4180 CALL SOUNDIX,B3,V,FS1,V) 

2940 62=392 

3570 CALL SOUNDIX,A3,V,El,V) 

4190 CALL SOUNDIX,B3,V,B2,V) 

2950 A3=440 

3580 CALL SOUND(X,A3,V,FS1,V) 

4200 CALL SOUNDIX,B3,V,FS1,V) 

2960 B3=494 

3590 X=X/2 :: Y=Y/2 :: CALL S0UND(X,62,V 

4210 CALL SOUNDIX,B3,V,DSI,V) 

2970 C3=523 

,61,V) 

4220 CALL SOUNDIX,63,V,El,V) 

2980 CS3=554 

3600 CALL SOUND(X,B3,V,61,V) 

4230 CALL SOUNDIX,FS3,V,El,V) 

2990 03=587 

3610 CALL SOUND(X,D3,V,61,V) 

4240 CALL SOUND(X,E3,V,61,V) 

3000 DS3=622 

3620 CALL SOUND(X,63,V,61,V) 

4250 CALL SOUNDIX,63,V,61,V) 

3010 E3=659 

3630 CALL SOUND(X,A3,V,D1,V) 

4260 CALL SOUND(X,FS3,V,B2,V) 

3020 F3=698 

3640 CALL SOUND(X,FS3,V,DI,V) 

4270 CALL SOUND(X,E3,V,B2,V) 

3030 FS3=740 

3650 CALL SOUND(X,63,V,61,V) 

4280 CALL SOUNDIY,FS3,V,B1,V) 

3040 63=784 

3660 CALL SOUND(X,63,V,B1,V) 

4290 CALL SOUND(Y,B3,V,A2,V) 

3050 A4=880 

3670 CALL SOUND(X,62,V,D1,V) 

4300 CALL SOUND(Y,E3,V,61,V) 

3060 B4=988 

3680 CALL SOUND<X,62,V,61,V) 

4310 CALL SOUNDIX,FS3,V,A2,V) 

3070 C4=1047 

3690 CALL SOUND(X,62,V,DI,V) 

4320 CALL SOUND(X,63,V,A2,V) 

3080 D4=l175 

3700 CALL SOUND(X,62,V,B1,V) 

4330 CALL SOUNDIX,A4,V,A2,V) 

3090 E4=1319 

3710 CALL SOUND(X,62,V,61,V) 

4340 CALL SOUNDIY,B3,V,B2,V) 

3100 F4=1397 

3720 CALL SOUND(X,B3,V,61,V) 

4350 CALL S0UND(Y,DS3,V,B1,V) 

3110 64=1568 

3730 CALL SOUND(X,D3,V,61,V) 

4360 CALL SOUNDIY,E3,V,El,V) 

3120 X=VI 

3740 CALL SOUND(X,63,V,61,V) 

4370 CALL SOUNDIY,DS3,V,El,V) 

3130 Y=2»VI 

3750 CALL SOUND(X,A3,V,DI,V) 

4380 CALL SOUND(X,E3,V,El,V) 

3140 Z=1199 

3760 CALL SOUND(X,FS3,V,DI,V) 

4390 CALL SOUNDIY,FS3,V,El,V) 

3150 V=0 

3770 CALL S0UND(X,63,V,G1,V) 

4400 CALL SOUNDIY,63,V,B1,V) 

3160 CALL SOUND(X,62,V,61,V) 

3780 CALL SOUNDIX,63,V,B1,V) 

4410 CALL SOUNDIX,63,V,D1,V) 

3170 CALL SOUND(X,B3,V,S1,V) 

3790 CALL SOUND(X,62,V,D1,V) 

4420 CALL SOUNDIX,FS3,V,D1,V) 

3180 CALL SOUND(X,D3,V,61,V) 

3800 CALL SOUNDIX,62,V,61,V) 

4430 CALL SOUND(X,E3,V,61,V) 

3190 CALL SOUND(X,G3,V,61,V) 

3810 CALL SOUNDIX,62,V,D1,V) 

4440 CALL SOUNDIX,D3,V,61,V) 

3200 CALL SOUND(X, A3,V,D1,V) 

3820 CALL SOUND(X,62,V,B1,V) 

4450 CALL SOUNDIY,E3,V,Cl,V) 

3210 CALL SOUND(X.FS3,V,D1,V) 

3830 CALL SOUNDIY,E3,V,Cl,V) 

4460 CALL SOUND(X,E3,V,DI,V) 

3220 CALL SOUNDIX,63,V,61,V) 

3840 CALL SOUND(X,D3,V,El,V) 

4470 CALL SOUNDIX,D3,V,D1,V> 

3230 CALL SOUND(X,G3,V,B1,V) 

3850 CALL SOUNDIX,C3,V,El,V) 

4480 CALL SOUND(X,C3,V,El,V) 

3240 CALL SOUND(X,62,V,DI,V) 

3860 CALL SOUNDIX,B3,V,61.V) 

4490 CALL SOUNDIX,B3,V,El,V) 

3250 CALL SOUNDIX,62,V,61,V) 

3870 CALL SOUNDIX,A3,V,61,V) 

4500 CALL SOUNDIY,C3,V,Al,V) 

3260 CALL SOUND(X,62,V,61,V) 

3880 CALL SOUNDIY,D3,V,B1,V) 

4510 CALL SOUNDIX,C3,V,B1,V) 

3270 CALL S0UND(X,62,V,B1,V) 

3890 CALL SOUND(X,C3,V,DI,V) 

4520 CALL SOUND!X,B3,V,B1,V) 

3280 CALL SOUND(X,62,V,B1,V) 

3900 CALL SOUNDIX,B3,V,D1,V) 

4530 CALL SOUND(X,A3,V,C1,V) 

3290 CALL SOUND(X,B3,V,G1,V) 

3910 CALL SOUNDIX,A3,V,61,V) 

4540 CALL SOUNDIX,62,V,Cl,V) 

3300 CALL SOUND(X,D3,V,61,V) 

3920 CALL SOUNDIX,62,V,61,V) 

4550 CALL SOUNDIY,FS2,V,D1,V) 

3310 CALL SOUND(X,63,V,61,V) 

3930 CALL SOUNDIX,A3,V,Cl,V) 

4560 CALL SOUND(X,E2,V,Al,V) 

3320 CALL SOUND(X,A3,V,DI,V) 

3940 CALL SOUND(X,B3,V,Cl,V) 

4570 CALL SOUNDIX,FS2,V,Al,V) 
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; 4580 CALL SOUND(Y,D2, V,DI, V) 
4590 CALL SOUND(X,A3,V,FS 1,V) 
4600 CALL SOUND(X,A3,V,D1,V) 
4610 CALL SOUND(X,D2,V,FS1,V) 
4620 CALL SOUND(X,D2,V,DI,V) 
4630 CALL SOUND(X,D2,V,FS1,V) 
4640 CALL SOUND»,D2,V,D1,V) 
4650 CALL S0UND(X,B3,V,61,V! 
4660 CALL SOUND(X,B3,V,DI,V) 
4670 CALL SOUND(X,D2,V,S1,V) 
4680 CALL SOUND»,D2,V,D1,V) 
4690 CALL SOUND»,D2,V,61,V) 
4700 CALL SOUND(X,D2,V,DI,V) 
4710 CALL SOUND»,C3,V,FS1,V) 
4720 CALL SOUND»,D3,V,D1,V) 
4730 CALL SOUND»,C3,V,D1,V) 
4740 CALL SOUND»,C3,V,61,V) 
4750 CALL SOUND»,C3,V,61,V) 
4760 CALL SOUND»,A3,V,D1,V) 
4770 CALL SOUND»,A3,V,El,V) 
4780 CALL SOUND(X,A3,V,FS1,V) 
4790 CALL SOUND(X,A3,V,DI,V) 
4800 CALL SOUND»,A3,V,El,V) 
4810 CALL SOUND»,A3,V,FS1,V) 
4820 CALL SOUND(X,62,V,SI,V) 
4830 CALL SOUND»,B3,V,61,V) 
4840 CALL SOUND»,D3,V,61,V) 
4850 CALL SOUND»,63,V,61,V) 
4860 CALL SOUND»,A3,V,D1,V) 
4870 CALL SOUND»,FS3,V,D1,V) 
4880 CALL SOUND»,63,V,61,V) 
4890 CALL SOUND(X,63,V,B1,V) 
4900 CALL SOUND»,62,V,D1,V) 
4910 CALL SOUND»,62,V,61,V) 
4920 CALL SOUND»,62,V,D1,V) 
4930 CALL SOUND(X,62,V,B1,V) 
4940 CALL SOUND»,62,V,61,V) 
4950 CALL SOUND»,B3,V,61,V) 
4960 CALL SOUND(X,D3,V,61,V) 
4970 CALL SOUND»,63,V,61,V) 
4980 CALL SOUND»,A3,V,D1,V> 
4990 CALL SOUND»,FS3,V,D1,V) 
5000 CALL SOUND»,63,V,61,V) 
5010 CALL SOUND»,63,V,B1,V) 
5020 CALL SOUND(X,62,V,D1,V) 
5030 CALL SOUND»,62,V,61,V) 
5040 CALL SOUND(X,62,V,D1,V) 
5050 CALL SOUND»,62,V,B1,V) 
5060 CALL SOUND(Y,E3,V,C1,V) 
5070 CALL SOUND<Y,D3,V,E1,V) 
5080 CALL SOUND»,C3,V,El,V) 
5090 CALL SOUND»,B3,V,61,V) 
5100 CALL SOUND»,A3,V,61,V) 
5110 CALL SOUND(Y,D3,V,B1,V) 
5120 CALL S0UND4X,C3, V,DI,V) 
5130 CALL SOUND»,B3,V,D1,V) 
5140 CALL SOUND(X,A3,V,61,V) 
5150 CALL SOUND»,62,V,61,V) 
5160 CALL SOUND»,A3,V,Cl,V) 
5170 CALL SOUND»,B3,V,Cl,V) 
5180 CALL SOUND(Y,D2,V,Cl,V) 
5190 CALL SOUND(Y,FS2,V,D1,V) 
5200 CALL SOUND(Y,62,V,61,V) 
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5210 CALL SOUND»,62,V,Di,V) 
5220 CALL SOUND»,62,V,61,V) 
5230 SUBEND 


350 CALL CLEAR 

370 CALL COLOR11,7,6,2,5,6,3,7,5) 

390 CALL CLEAR :: CALL CHARSET 
400 CALL CHAR(42, , 2424183C3C3C3CE7”) 

410 CALL CHARI49,■1E3A081C3C1E0FFE*) 

420 CALL SCREEN(8) 

440 TBL-1 

450 CALL CHARI50,"18187EFF99994224’) 

460 B0N=9 

470 CALL CHAR(48,"4242FF424242FF42*) 

480 CALL CHAR (42, "2424183C3C3C3CE7“) 

490 CALL CHAR(44,*7CE0383C7E5F0F7F“) 

500 CALL CHAR(45,‘3E071C3C7EFAF0FE") 

510 CALL COLOR(2,7,1,3,10,1) 

591 CALL CLEAR CALL HA6NIFY(1) 

600 CALL CHAR(43,■O'):: 1F TBL=5 THEN CA 
LL GAIN ELSE CALL TABL(TBL) 

610 CALL HCHAR(24,29,ASC("9*)): : CALL HC 
HAR(24,31,42) 

620 CALL CHAR(43,"FFFFFFFFFFFFFFFF") 

630 CALL SPRITE<»1,42,5,145,17) 

640 1=145 :: Y=17 

650 CALL 6CHAR(X/8+2,(Y+6)/8,GE): : IF GE 
=32 THEN 60SUB 1320 
660 CALL KEY(0,K,S) 

670 CALL COINC(ALL,C): : IF C THEN 1430 
680 IF S=0 THEN 660 

690 IF K=68 THEN Y=Y-1*(Y<239)ï: CALL LO 
CATE(tl,X,Y): : CALL PATTERN(il,45): : 60T 
0 650 

700 IF K=83 THEN Y=Y+lt(Y>6): : CALL LOCA 
TE(il,X,Y): : CALL PATTERN(il.44): : 60T0 
650 

710 IF K<>65 THEN 920 

720 IF Y<16 THEN 650 

730 CALL COINC<ALL,C): : IF C THEN 1430 

740 CALL SOUND(-100,2000,0,500,0) 

750 CALL PATTERN(#1,44) 

760 CALL LOCATE(il,X-&,Y-3) 

770 CALL COINC(ALL,C):: IF C THEN 1430 
780 CALL LOCATE(#1,X-12,Y-6) 

790 CALL COINC(ALL,C):: IF C THEN 1430 
800 CALL LOCATE(il,X-16,Y-8) 

810 CALL COINC(ALL,C):: IF C THEN 1430 
820 CALL 6CHAR(»-16)/8+2, (Y-2)/8,6E):: 
IF 6E<>32 THEN X=X-16 :: Y=Y-8 :: GOTO 6 
60 

830 CALL LOCATE(#1,X-12,Y-l1) 

840 CALL COINC(ALL,C): : IF C THEN 1430 
850 CALL LOCATE(#1,1-8,Y-13) 

860 CALL COINC(ALL,C): : IF C THEN 1430 
870 CALL 6CHAR((X-8)/8+2, (Y-7)/8,6E) : : I 
F 6E<>32 THEN Y=Y-13 :: 1=1-8 :: 60TO 66 
0 

880 CALL LOCATE(#1,X,Y-15) 

890 CALL COINC(ALL,C): : IF C THEN 1430 


900 Y=Y-15 

910 GOTO 650 

920 IF KO70 THEN 1130 

930 IF Y>239 THEN 650 

940 CALL COINC(ALL,C):: IF C THEN 1430 

950 CALL SOUND(-100,2000,0,500,0) 

960 CALL PATTERN(#1,45) 

970 CALL LOCATE<#l,X-6,Y+3) 

980 CALL COINC(ALL.C):: IF C THEN 1430 
990 CALL LOCATE(#1,X-12,Y+6) 

1000 CALL COINC(ALL,C): : IF C THEN 1430 
1010 CALL LOCATE(#l,X-16«Y+8) 

1020 CALL COINC(ALL,C): : IF C THEN 1430 
1030 CALL 6CHARI»-161/8+2, (Y+14) /8,GE) : 
: IF 6E<>32 THEN X=X-16 :: Y=Y+8 s: 60T0 
660 

1040 CALL LOCATE(#1,X-12,Y+11) 

1050 CALL COINC(ALL,C): : IF C THEN 1430 
1060 CALL L0CATE(#1,X-8,Y+13) 

1070 CALL COINC(ALL,C): : IF C THEN 1430 
1080 CALL GCHAR((X-B)/8+2,(Y+19)/8,6E): : 
IF GE<>32 THEN Y=Y+13 :: X=X-8 :: GOTO 
660 

1090 CALL LOCATE(#1,X,Y+15) 

1100 CALL COINC(ALL,C): : IF C THEN 1430 

1110 Y=Y+15 

1120 60T0 650 

1130 IF X<17 THEN 650 

1140 CALL PATTERN(#1,42) 

1150 CALL COINC (ALL, Os: IF C THEN 1430 
1160 CALL SOUNDt-lOO,2000,0,500,0) 

1170 CALL LOCATE(*l,X-6,Y) 

1180 CALL COINC(ALL,C):: IF C THEN 1430 
1190 CALL L0CATE(#1,X-12,Y) 

1200 CALL COINC(ALL,C):: IF C THEN 1430 
1210 CALL L0CATE(»1,X-16,Y) 

1220 CALL COINC(ALL,C): : IF C THEN 1430 
1230 CALL 6CHAR((X-16)/B+2, (Y+6) /B, 6E) : : 
IF 6E<>32 THEN X=X-16 :: 60T0 660 
1240 CALL LOCATE(#1, X-12, Y) 

1250 CALL COINC(ALL,C): : IF C THEN 1430 
1260 CALL LOCATE(#1,X-8, Y) 

1270 CALL COINC(ALL,C): : IF C THEN 1430 
1280 CALL GCHAR((X-B)/8+2,(Y+6)/B,6E):: 
IF GE<>32 THEN X=X-8 :: GOTO 660 
1290 CALL LOCATE(#1,X,Y) 

1300 CALL COINC(ALL,C):: IF C THEN 1430 
1310 GOTO 650 
1320 V=0 

1330 CALL COINC (ALL, C) : : IF C THEN 1430 
1340 V=V+1 

1350 CALL SOUND(-200,V#350,0) 

1360 CALL COINC(ALL,C): : IF C THEN 1430 
1370 IF V=5 THEN 1450 
1380 X=X+8 :: IF X>177 THEN 1450 
1390 CALL COINC(ALL,C):: IF C THEN 1430 
1400 CALL LOCATE(#1,X,Y) 

1410 CALL COINC(ALL,C): : IF C THEN 1430 
1420 CALL 6CHAR(X/8+2,(Y+6)/8,GE): : IF G 
E=32 THEN 1340 ELSE RETURN 
1430 CALL COINC(#1,#2,6,FGH) 

1440 IF F6H THEN TBL=TBL+1 :: CALL NUS : 
: B0N=9 :: GOTO 600 











1450 B0N=B0N-1 

1460 CALL HCHAR(24,29,ASC(STR*(BON))) 
1470 IF BOfeO THEN END 
1480 GOTO 630 
1490 ! 

1500 ! 

1510 ! 

1520 ! 

1530 SUB TABL(TBL) 

1540 CALL DELSPRITE(ALL) 

1550 IF TBL=1 THEN 1740 

1560 IF TBL=4 THEN 1990 

1570 IF TBL=3 THEN CALL CLEAR 

1580 RESTORE 1600 

1590 FOR 1=1 TO 32 :: READ A,B,C :: CALL 
HCHAR(A,B,43,0 : : NEXT I 
1600 DATA 9,19,3,4,18,13,6,10,1,6,13,1,7 
,12,1,8,15,4,9,3,11,9,26,3 
1610 DATA 10,23,2,12,7,13,14,6,1,14,11,1 
,14,25,1,16,10,1,16,15,2,16,24,1,16,27,5 
1620 DATA 18,5,1,18,8,2,18,23,1,20,7,1,2 
0,11,1,20,13,1,20,15,1,20,17,1 
1630 DATA 13,23,1,20,19,1,20,24,8,22,6,1 
,24,1,32,17,11,1,17,13,1 
1640 FOR 1=1 TO 6 ü READ A,B,C :: CALL 
VCHAR(A,B,48,C): : NEXT I 
1650 DATA 5,18,3,10,3,9,10,27,4,12,21,7, 
17,31,3,21,24,3 

1660 CALL SPRITE(12,49,5,1,28*8-7) 

1670 FOR 1=1 TO 12 
1680 READ A,B,C,D 

1690 CALL SPRITE(#(1+2),50,A,B*8-7, CtB-7 
,0,-D) 

1700 NEXT I 

1710 DATA 2,23,6,20,5,19,17,10,10,19,26, 

10,11,15,3,-15,7,14,4,-15,13,11 

1720 DATA 3,30,2,8,3,-25,3,8,6,-25,5,8,2 

3,-25,13,5,13,30,9,3,3,30,10,3,19,30 

1730 SUBEXIT 

1740 ! 

1750 !++++++++++++++++++++++ + 

TABLEAU 1 + ++++++++++++++++++ 

++++ 

1760 RESTORE 1780 

1770 FOR 1=1 TO 31 :: READ A,B :: CALL H 

CHAR(A,B,43): : NEXT I 

1780 DATA 4,32,5,8,7,7,7,14,8,31,9,8,9,1 

3,9,15,9,17,9,19,9,29,10,27,11,7,11,20,1 

1,25 

1790 DATA 12,16,13,21,14,8,14,16,15,20,1 

5,26,16,15,16,18,16,28,17,30 

1800 DATA 18,7,18,14,20,12,20,15,22,8,23 

,8 

1810 CALL HCHAR(4,3,43,4) 

1820 CALL HCHAR14,14,43,16) 

1830 CALL HCHAR(22,9,43,2) 

1840 CALL HCHAR(23,9,43,2) 

1850 CALL HCHAR(22,14,43,14) 

1860 CALL HCHARI23,14,43,14) 

1870 CALL HCHAR(24,1,43,32) 

1880 CALL HCHAR(20,30,43,2) 

1890 CALL VCHAR(5,4,48,18) 

1900 CALL VCHAR(4,13,48,4) 


1910 CALL SPRITE(12,49,5,19*B-7,30*8-7) 
1920 FOR 1=3 TO 11 
1930 READ A,B,C,D 

1940 CALL SPRITE(Il,50,A,B*8-7,C*8-7,D,0 
) 

1950 NEXT I 

1960 DATA 4,23,5,0,3,23,6,0,13,23,7,0 
1970 DATA 10,2,8,15,4,2,15,20,13,6,18,-2 
0,10,16,27,20,9,13,29,20,7,1,31,20 
1980 SUBEXIT 

1990 !++++++++++++++++++++++ + T 

ABLEAU 4 + ++++++++++++++++++ 

++++ 

2000 CALL CLEAR 

2010 FOR 1=5 TO 24 STEP 2 :: FOR J=1 TO 
32 STEP 2 :: CALL HCHAR(I,J,43):: NEXT J 
:: NEXT I 

2020 FOR 1=2 TO 32 STEP 2 :: FOR J=4 TO 
24 STEP 2 :: CALL HCHAR(J,1,48):: NEXT J 
:: NEXT I 

2030 CALL HCHAR124,1,48,32) 

2040 FOR 1=6 TO 32 STEP 12 :: CALL VCHAR 
(1,1,32,23):: CALL VCHAR(1,1+1,32,23):: 
NEXT I 

2050 FOR 1=12 TO 32 STEP 12 :: CALL VCHA 
R(7,1,32,18): : CALL VCHARI7,1+1,32,18): : 
NEXT I 

2060 CALL SPRITE(§2,49,5,23*8-7,31*8-7) 
2070 FOR 1=3 TO 23 STEP 2 
2080 CALL SPRITE(#1,50,2,(1-2)*8-7,1*8-7 
,0,1*1.3) 

2090 NEXT I 
2100 SUBEND 


2440 SUB NUS 

2450 FOR J=1 TO 5 

2460 FOR 1=2000 TO 500 STEP -100 

2470 CALL SOUND(-200,1,8,2500-1,2) 

2480 NEXT I 

2490 NEXT J 

2500 SUBEND 

2510 SUB GAIN 

2520 CALL CLEAR 

2530 CALL DELSPRITE(ALL) 

2540 CALL HA6NIFY(2) 

2550 CALL SCREEN(3) 

2560 CALL SPRITE(#2,49,5,10*8-7,13*8-7) 
2570 CALL SPRITE(il,44,5,10*8-7,30*8-7) 
2580 CALL MOTION(il,0,-8): : CALL SOUNDf- 
1000,500,4,600,7,1000,8) 

2590 CALL C01NC(ALL,C):: IF C THEN 2600 
ELSE 2590 

2600 FOR 1=1 TO 40 : : NEXT I : : CALL COL 
OR(il,7) 

2610 FOR 1=1 TO 20 
2620 CALL MOTION (il ,0,10) 

2630 FOR J=1 TO 30 :: NEXT J 
2640 CALL NOTION(11,0,-10) 

2650 FOR J=1 TO 30 :: NEXT J 
2660 CALL MOTION(il,0,0) 

2670 CALL SOUND(-200,1*300,0):: NEXT I 
2680 CALL MA6NIFY(1) : : SUBEND 
2690 SUB DSP(AI,L) 

2700 FOR 1=1 TO LENIA») 

2710 CALL HCHAR(L,1+2,ASC(SEGt(A$,I,1))) 
2720 NEXT I 
2730 SUBEND 
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AMSTRAD 

AMSFILE 

Langage: Basic. 




Hervé Couppé de Lahongrais 
Vingt-cinq ans, effectue actuellement 
son service militaire. Hervé 
programme depuis cinq ans et 
consacre environ douze heures par 
semaine à l’informatique. Il envisage 
une carrière d’ingénieur 

informaticien. 

O n trouve pas mal de logiciels de 
gestion de fiches dans le 
commerce et je vous entends 
déjà grommeler (surtout ceux qui 
auraient préféré un jeu). Mais je vous 
assure que ce programme soutient 
largement la comparaison avec 
certains produits qui coûtent beaucoup 
plus cher que le prix d’un Micro V.O. 
Les différents menus se présentent 
sous forme de fenêtres. Un mode 
d’emploi est inclus dans le listing, mais 
vous n’y aurez pas souvent recours, 
tant les procédures sont évidentes. Il 

io rem tmtmmmmmm 

20 REM * GESTION DE FICHIERS t 
30 REM » POUR AMSTRAD CPC464 » 

40 REM » HERVE COUPPE » 

so rem tmmtmmuutmt 

60 0PEN0UT , bidon , :MEM0RY HIHEM-1:CL0SE0UT 
70 MODE 2 
80 fin=0 

90 REM Caractères de contrôle 

100 iv*=CHR*(24) 'inversion video 

110 fd*=" ■+CHR*(1)+CHR*(9)+- ■ ’fleche droi 

te 

120 lf*=CHR*(10) 'passage a la ligne 
130 bpt=CHR*(7) ’beep en cas d’erreur 
140 cr*=CHR$(13) ’<enter> 

150 tr*=CHR$(154) 'pour tracer une ligne 

160 nult=CHR*(0) 'fiche vide 

170 ecr*=*5- ‘+iv*+'Ecran , +ivt+ , /I«pri»ante - 

:i«p*="5 - Ecran/"+ivt+'I»pri*ante’+ivi 

180 ON ERR0R GOTO 5870 

190 REM 

200 rem imtmmmmt 

210 REH t Menu Principal t 

220 reh mnntmttnm 

230 REM 

240 NHILE N0T fin 
250 CLS 


faut créer un fichier avec un certain 
nombre de rubriques (jusqu’à 99). Ce 
fichier peut être sauvegardé et 
rechargé par la suite. L’insertion des 
fiches ne présente aucune difficulté; il 
est possible d’effacer une fiche ou de la 
modifier (partiellement ou totalement). 
La recherche des fiches se fait par des 
opérateurs de comparaison <=O « 
= j> > =>, des opérateurs logiques 
(ET, OU), l’opérateur TOUS pour 
obtenir toutes les fiches et les 
opérateurs DANS (pour obtenir toutes 
les fiches comportant une partie d’un 
critère donné pour une rubrique) et 
CONT (pour obtenir toutes les fiches 
dont la rubrique sélectionnée contient 
le critère indiqué). Les critères de 
recherche doivent être tapés entre 
guillemets à la suite du numéro de 
rubrique et de l’opérateur. Ex. : 2 = 
“Amstrad” sélectionne toutes les 

260 per»is=l 

270 w=ls cl=24:c2=47:11=7:12=17:G0SUB 680 

280 PRINT 11, 1 - MENU PRINCIPAL -Mf* 

290 PRINT ll.ivt'C'ivi'reation d’un fichi 
er'lft 

300 PRINT fl,‘Charge»ent d’un , iv* , F ,, ivr 
ichier'lf* 

310 PRINT fl,iv*"fl‘iv**uelgues explicatio 
ns..." 

320 PRINT ll.ivi'E-ivi'xit progra»»e*lf* 
330 PRINTil,TAB(14)■?* 

340 choix»=’CFBE , :G0SUB 460 

350 ON touche GOSUB 920,1650,5570,400 

360 •e*=FREC"') 

370 REND 
380 ZONE 13 
390 END 

400 fin=-l:RETURN 
410 REM 

420 reh tmmmtmmmt 

430 REH t Réponse a un ienu t 

440 rem mmtttmttmmt 

450 REM 
460 GOSUB 510 

470 touche=INSTR (choix*,») 

480 IF touche=0 THEN PRINT bp*;:G0T0 460 
490 RETURN 


fiches dont la rubrique n° 2 est 
"Amstrad”. Les opérateurs peuvent 
être combinés selon le schéma 
suivant: n° - opérateur comparatif - 
“chaîne” - opérateur logique - n° 

- opérateur comparatif - “chaîne” 

- etc. L’édition des fiches peut se faire 
en continu ou fiche à fiche. 
L’impression se fait en continu. Une 
fois la recherche effectuée, il est 
possible de trier les fiches en ordre 
croissant ou décroissant. 

Avec 10 rubriques, vous disposez 
approximativement de 140 fiches 
(vous en aurez un plus grand nombre si 
vous ôtez les REM du programme). 
Vous pouvez en traiter encore plus si 
vous utilisez moins de rubriques. Ces 
chiffres sont valables pour le CPC 464. 
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500 REM saisie clavier 
510 k*=UPPER*(INKEY*):IF k*=" THEN 510 
520 RETURN 
530 REM 

540 rem mmmmmmmtmmmm 

550 REH t Affichage de la fiche courante t 

560 reh muttmnmmntttmtttmn 

570 REM 

580 l=LEN(fiche*(f,r)) 

590 IF VP0S(#2)=17 OR (LEN(no«* (r))+1>74 AND 
VP0S(12)>15-1\80) THEN PRINTI2,,iv*'Pressez 
une touche pour suite'ivt:GGSUB 510:CLS 12 
600 PRINT 12,USING ■»i";r+l; 

610 PRINTI2,*- , noit(r)* ! "fiche«(f,r) 

620 RETURN 
630 REM 

640 rem tmmmmmmmmtmm 

650 REM t SP de création d’une fenetre t 

660 rem umummmttmnmmin 

670 REM 

680 NIND0N lu,cl,c2,11,12 

690 LOCATE cl-1,11-1 :PRINT CHR*(150)STRIN6*I 

c2-d+l,tr*)CHR*(156) 

700 FOR 1=11 T0 12 

710 LOCATE cl-1,1:PRIMT CHR$(149):LOCATE 
c2+l,l:PRINT CHR*(149) 

720 NEXT 
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730 LOCATE c1-1,12+1:PRINT CHR*(147)STRIN6*( 
c2-c1+1,tr$)CHR*(153); 

740 RETURN 
750 REH 

760 reh imitmmmiiimmimtmmi 

t 

770 REH 4 Introduction d’un noi de rubrique 

* 

780 reh ntntttuttttmttttttmtnttmtt 

t 

790 REH 

800 CLS 11 

810 PRINTil,aess»; 

820 IHPUT il,■"«noat 

830 IF noa*=" THEN IF INSTR (aess*,fd*) THE 

N 860 ELSE PRINT bp*;:60T0 800 

840 IF LEN (noa*)>30 THEN PRINT bp*;:60T0 80 

0 

850 noa* (aodif)=noa* 

860 RETURN 
870 REH 

880 reh mmmmmmmmmmmm 

i 

890 REH t Création des rubriques du fichier 

t 

900 reh ttttuttt mmmmmmmmm 

« 

910 REH 
920 CLS 

930 PRINT TAB(30);iv*“- Création Fichier *'i 

v* 

940 n=1: cl=2:c2=79: 11=4:12=5: G0SUB 680 
950 ti=2 :11 =8:12=24 :60SUB 680 
960 CLS il 

970 1NPUT 11,'Noabre de rubriques : ',nb 
980 IF nb<0 OR nb >99 THEN PRINT bp*;:G0T0 9 
60 

990 IF nb=0 THEN 1130 
1000 rubrique=nb-l 

1010 rec=0: aax.fiche=(FRE( 1 *)-800-351rubriqu 
e)\(20+13*rubrique) 

1020 DIH noa*(rubrique),typeï(rubrique),fich 
e$(aax.fiche,rubrique),rechï(aax.fiche) 

1030 FOR i=0 TO rubrique 
1040 aess*="Noa de la rubrique No*+STR* 
( 1 + 1 )+' : ' 

1050 aodif-i:GOSUB 800 

1060 PRINTil,"Type chaine (C) ou nuaeriq 

ue (N) : * 

1070 choix*="CN*:GOSUB 460 

1080 typeX(i)=ASC (k*) 

1090 PRINTI2,US1N6 'ii";i+1 ; :PRINTI2,*-■ 

noa*(i)' *iv*k*iv», 

1100 NEXT i 

1110 turn-l:GOSUB 1190 
1120 GOSUB 2170 
1130 RETURN 
1140 REH 

1150 reh mmmmmmmmmmmtt 

mut 

1160 REH t Hodification des libelles de rubr 
ique t 

1170 reh tmmimmmmmmmmm 
mm 

1180 REH 
1190 aodif=-l 
1200 PRINTI2 

1210 IF turn=0 THEN turn=l:G0T0 1270 
1220 CLS il 


1230 PRINTil,'correct (0/N) ?' 

1240 choix*='0N':60SUB 460 
1250 IF touche=l THEN 1370 
1260 CLS 11 

1270 INPUT 11,'Nuaero de la rubrique a aodif 
ier : aodif:aodif-aodif-l 
1280 IF aodif<0 OR aodif>rubrique THEN PRINT 
bp*;:GOTO 1260 
1290 «esst=noi*(iodif)+fd* 

1300 60SUB 800 

1310 IF perais=0 THEN 1350 

1320 PRINTil.iv*CHR*(type!(aodif))iv*fd*; 

1330 GOSUB 510: IF MO'C* AND k*<>'N' AND k* 
Ocr* THEN PRINT bp$;:G0T0 1330 
1340 IF kIOcr* THEN PRINTil, iv*k*iv*:typeZ( 
aodif)=ASC(k*> 

1350 PRINTi2,USIN6*ll";aodif+l;:PRINTI2,’-'n 
oa*(aodif)' 'iv$CHR*(typeZ(aodif))iv* 

1360 GOTO 1220 
1370 aaxlong=0 
1380 FOR r=0 TD rubrique 
1390 nb=LEN (noa* (r)) 

1400 NHILE HID* (noa*(r),nb,1)=' *:nb=nb 
-1:HEND 

1410 aaxlong=HAX (aaxlonq,nb) 

1420 NEXT 

1430 ZONE aaxlong+6 
1440 FOR r=0 T0 rubrique 
1450 noa*(r)=LEFT* (noa*(r)+STRIN6*(aaxl 
ong,' *),aax1ong) 

1460 NEXT 

1470 IF aodif0-1 THEN CLS 11:GOSUB 1540 
1480 RETURN 
1490 REH 

1500 reh muttttttttttmttmnn 

1510 REH * Affichage des rubriques t 

1520 reh mmmmmmmmm 

1530 REH 
1540 CLS 12 

1550 FOR n=0 T0 rubrique 

1560 PRINTI2.USIN6 'il' ;n+1; :PRINTI2,*-' 

noa*(n)' 'iv*CHR*(typeZ(n))iv*, 

1570 NEXT n 

1580 IF turn-1 THEN PRINTil,TAB(22)iv*'Press 
ez une touche pour continuer'iv*:GOSUB 510 
1590 RETURN 
1600 REH 

1610 reh nttxnttttmttmtn 

1620 REH t Chargeaent fichier t 
1630 reh ttttttttmttttmtttt 
1640 REH 
1650 LOCATE 1.1 

1660 INPUT 'Noa du fichier : '.file* 

1670 PRINT iv**Pret ?'iv* 

1680 GOSUB 510 

1690 LOCATE 1,2:PRINT 'Recherche ';UPPER*(fi 

le*);'...' 

1700 0PENIN 'l'+file* 

1710 LOCATE 1,2:PRINT 'Chargeaent en cours.. 

■ 

1720 INPUT I9,rubrique,aax.fiche,rec 
1730 DIH noa*(rubrique),typeï(rubrique),fich 
e*(aax.fiche,rubrique),rechï(aax.fiche) 

1740 FOR i=0 T0 rubrique 

1750 INPUT l9,noat(i),typeX(i) 

1760 NEXT i 

1770 FOR j=0 T0 rec-1 

1780 FOR i=0 T0 rubrique 

1790 LINE INPUT I9,fiche*(j,i) 


1800 NEXT i 
1810 NEXT j 
1820 CLOSE IN 

1830 aaxlong=LEN (noa*(0)):ZONE aaxlong+6 
1840 GOSUB 2170 
1850 RETURN 
1860 REH 

1870 reh mtnntmtmtttttt 
1880 REH t Sauvegarde fichier t 
1890 reh mmtmmmmm 
1900 REH 
1910 sauve=l 
1920 LOCATE 1,1 

1930 INPUT 'Sous quel noa sauvegardez-vous 1 
e fichier : ',file* 

1940 PRINT'Vitesse 'iv*'L'iv*'ente ou *iv*'R 
■iv*'apide ? '; 

1950 choix»='LR':60SUB 460:PRINT k* 

1960 SPEED NRITE touche-1 
1970 PRINT ivt'pret ?'iv* 

1980 GOSUB 510 

1990 LOCATE l,3:PRINT'Sauvegarde en cours... 

■ 

2000 0PEN0UT 'l'+file* 

2010 PRINTi9,rubrique:PRINTi9,aax.fiche:PRIN 
Ti9,rec 

2020 FOR i=0 T0 rubrique 

2030 PRINTI9,noa*(i):PRINTI9,typeZ(i) 

2040 NEXT i 

2050 FOR j=0 TO rec-1 

2060 FOR i=0 TO rubrique 

2070 PRINTI9,fiche*(j,i) 

2080 NEXT i 
2090 NEXT j 
2100 CLOSEOUT 
2110 RETURN 
2120 REH 

2130 reh immmmmmm 

2140 REH t Sélection fonction I 

2150 reh mmmmmmm* 

2160 REH 

2170 sauve=0:perais=0 
2180 CLS 
2190 tri=0 

2200 w= 1 : c 1 =28: c2=49:11=4:12=20:80SUB 680 
2210 PRINTil,'- SELECTION FONCTION -" 

2220 PRINTil,iv*'I'iv*'nsertion fiches'lf* 
2230 PRINTil,iv*'R'iv*'echerche'lf* 

2240 PRINTil,'Recherche+'iv*“T'iv**ri*lf* 
2250 PRINTil,iv*'S'iv*'auvegarder fichier'lf 
) 

2260 PRINTil,iv*'A'iv**fficher rubriques'lf* 
2270 PRINTil,iv*'H'iv*'odif. noas rubriques' 
lft 

2280 PRINTil,'Retour aenu ’ivi'P'ivl'rincipa 
l'If* 

2290 PRINTil,TAB<12);'?' 

2300 choix*='ÎRTSAHP':GOSUB 460 

2310 IF toucheM THEN GOSUB 1910:60T0 2180 

2320 IF touche=3 THEN tri=l 

2330 IF touche<>7 THEN 2400 

2340 IF sauve THEN 2390 

2350 LOCATE 1,1 

2360 PRINT'Voulez-vous sauvegarder le fichie 
r (0/N) ? * 

2370 choix*='0N':60SUB 460 
2380 IF touche=l THEN GOSUB 1910 
2390 ERASE noa»,typeZ,fiche*,rechZ:RETURN 
2400 CLS 
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2410 »=1:c1=2 :c2=79:11=4:12=5:60SUB 6B0 

2420 *=2:11=8:12=24:G0SUB 680 

2430 ON touche EOSUB 2540,2810,2810,1910,246 

0,2480 

2440 GOTO 21BO 

2450 REH Affichage rubriques 

2460 LOCflTE 28,1:PRINT ivi'- Affichage rubri 

ques -'ivi:turn=l:GOSUB 1540:RETURN 

2470 REH Hodification rubriques 

2480 LOCATE 27,!:PRINT ivi'- Hodification ru 

briques -'ivt:turn=0:60SU8 1540:60SUB U90:R 

ETURN 

2490 REH 

2500 reh mnttmtu 

2510 REH t Insertion I 

2520 reh ttmtmmt 

2530 REH 

2540 LOCATE 32,1:PRINT ivi'- Insertion -*ivi 
2550 turn=0:G0SUB 1540:PRINTI2,1f$+STRINGi(7 
B, tr$) 

2560 IF rec>*ax.fiche THEN PRINTI2,bp**Fichi 

er C0HPLET,,.désolé...‘: GOTO 2750 

2570 f=rec:rec=rec+l 

2580 FOR r=0 TO rubrique 

2590 PRINTI2,USING 'ii';r+l;:PRINT*2,'-' 

;no»i(r); 

2600 GOSUB 5210:fichei(f,r)=fichei 

2610 NEXT r 

2620 PRINTil," 1- Autre saisie 2- Hodifi 
cation partielle 3- Hodification totale' 
2630 PRINTil,' 4- Effacer fiche 5- Fin sa 
isie' 

2640 choix$='12345":GOSUB 460 
2650 CLS il 

2660 IF tDuche=l THEN PRINTi2,STRIN6»<78,tri 
): GOTO 2560 

2670 IF touche=5 THEN 2750 

2680 ON touche-1 GOSUB 4880,4980,5150 

2690 IF touche<>4 THEN 2620 

2700 «e«=FRE(") 

2710 PRINTil,' 1- Autre saisie' 

2720 PRINTil,TABI22)'5- Fin saisie' 

2730 choix*=“15’:GOSUB 460 
2740 IF touche=l THEN 2650 
2750 RETURN 
2760 REH 

2770 reh mmtmtti 

2780 REH t Recherche t 

2790 reh nmnntttt 

2800 REH 

2810 LOCATE 32,IsPRINT iv$*- Recherche -'iv$ 
2820 IF rec=0 THEN PRINTi2,bpt*Fichier VIDE 
!*:F0R t=l TO 2000:NEXT:RETURN 
2830 total=0:del=0:supp=2 
2840 turn=0:60SUB 1540 
2850 GOSUB 3590 

2860 PRINTi2,'Recherche en cours...' 

2870 IF criteret='tous* THEN GOSUB 4390 ELSE 
GOSUB 3740 

2880 PRINT42,'Recherche tereinee ';:IF er TH 
EN PRINTi2,"sur erreur* ELSE PRINT42,'Ok' 
2890 PRINT42,total ;'fiches sélectionnées' 
2900 IF total =0 THEN 3450 
2910 IF tri THEN GOSUB 4610 
2920 reste=total 

2930 LOCATE 67,1:PRINT'Total ';USING'iii';to 
talj:PRINT'/';USING'iii*;reste 
2940 LOCATE 67,2:PRINT' 

2950 PRINTil,' 1- Edition fiches':60SUB 3510 


2960 choixi='156':GOSUB 460 

2970 IF touche=2 THEN GOSUB 3500:60T0 2960 

2980 IF touche=3 THEN 3430 

2990 CLS il:CLS i2 

3000 PRINTi2,'Desirez-vous une édition conti 
nue (C) ou fiche par fiche (F) ?' 

3010 choixt='CF':GOSUB 460 
3020 IF touche=2 AND supp=2 THEN 3160 
3030 PRINTi2,'Pressez une touche...*:GOSUB 5 
10 

3040 CLS i2 

3050 FOR n=0 TO total-1 

3060 f=rechï(n): IF f<0 THEN 3140 

3070 PR INTisupp, STR ING* ( 78, tr* ) ; 

3080 FOR r=0 TO rubrique 

3090 PRINTisupp,noi$(r)" : 'fiche*<f 

,D 

3100 IF INKEYi=” THEN 3130 

3110 FOR t=l TO 100:NEXT t 

3120 IF INKEYi=" THEN 3120 

3130 NEXT r 

3140 NEXT n 

3150 GOTO 2950 

3160 1=0 

3170 FOR n=0 TO total-1 

3180 f=rechX(n): IF f<0 THEN 3410 

3190 »=»+l:LOCATE 67,2:PRINT'Fiche ';USI 

NG 'iit';i 

3200 CLS i2 

3210 FOR r=0 TO rubrique 

3220 GOSUB 580 

3230 NEXT r 

3240 PRINTil,' 1- Fiche suivante 2- Ho 

dification partielle 3- Hodification tôt 
ale* 

3250 PRINTil,' 4- Effacer fiche’::GOSUB 

3510 

3260 choixi=*123456':GOSUB 460 

3270 IF touche=5 THEN GOSUB 3500:GOTO 32 

60 

3280 CLS il 

3290 IF touche=6 THEN 3430 

3300 IF touche=l THEN 3410 

3310 ON touche-1 GOSUB 4880,4980,5150 

3320 IF touche<>4 THEN 3240 

3330 del=1:rechl(n)=-rechîln)-1:reste=re 

ste-1 

3340 LOCATE 76,1 :PRINT'/';USING'iii"; res 

te 

3350 IF reste=0 THEN PRINTi2,If*bp*'Tout 

es les fiches trouvées ont ete effacees.': GO 
TO 3430 

3360 PRINTil,* 1-Fiche suivante':GOSUB 3 

510 

3370 choix*='156*:GOSUB 460 

3380 IF. touche=2 THEN GOSUB 3500:G0T0 33 

70 

3390 IF touche=3 THEN 3430 

3400 CLS il 

3410 NEXT n 

3420 PRINTi2,lf*'Toutes les fiches trouvées 
ont ete editees":60T0 2950 
3430 CLS il:IF del THEN GOSUB 5320 
3440 CLS i2 

3450 PRINTi2,'Autre recherche (0/N) ?' 

3460 choix$='0N':G0SUB 460 
3470 IF touche=l THEN 2820 
3480 RETURN 
3490 REH 


3500 supp=10-supp 

3510 LOCATE il,22,2:IF supp=2 THEN PRINTil,e 

cri ELSE PRINTil,i*pi 

3520 LOCATE il,52,2:PRINTil,'6- Fin' 

3530 RETURN 
3540 REH 

3550 reh mtmmnmm 

3560 REH t Saisie critère t 

3570 reh nmmmmmt 

3580 REH 
3590 long=0:in=0 

3600 PRINTi2:PRINTi2,lft'Introduisez le(s) c 
ritere(s) de recherche :':LINE INPUT i2,crit 
prêt 

3610 FOR i=l TO LEN(criterei) 

3620 c$=L0NERt(NIDS(critère*,i,1)) 

3630 IF c*=CHR*(34) THEN in=l-in 

3640 IF ci<>' ' OR (c*=' ' AND in) THEN 
long=long+l:HIDi(criteref,long,l)=c* 

3650 NEXT i 

3660 IF in OR long<4 THEN PRINTi2,bpt'Erreur 
de syntaxe':G0T0 3590 
3670 criterei=HIDi(criteret,l,long) 

3680 RETURN 
3690 REH 

3700 reh mummtmtt 

3710 REH t Etude critère » 

3720 reh ntnnmmtm 

3730 REH 

3740 p=l:er=0:et=0 

3750 q=p:NHILE q<=long:c*=HID*(critere*,q,1) 
:IF ct<'0' OR ci>'9' THEN 3770 
3760 q=q+l:NEND 

3770 IF p=q OR q>long-2 THEN 3880 

3780 r=VAL(HID$(critere*,p,q-p))-l 

3790 IF r<0 OR r>rubrique THEN PR1NTD2,'Rubr 

ique';r+l;'incorrecte !':G0T0 3880 

3800 p=q:GOSUB 3930:IF c=8 THEN PRINTi2,'0pe 

rateur incorrect î': GOTO 3880 

3810 IF NID*(critéré*,p,1)<>CHR*(34) THEN 38 

80 

3820 GOSUB 4000:IF er THEN 3890 

3830 saut=(c HOD 4)*2+1-(typeï(r)=67):c=-(c> 

3) 

3840 IF et=0 THEN GOSUB 4110 ELSE 1F et<0 TH 

EN GOSUB 4280 ELSE IF total=0 THEN RETURN EL 

SE GOSUB 4190 

3850 IF p Hong THEN 3890 

3860 IF HID$(criterei,p,2)='et’ THEN IF et>= 

0 THEN et=l:p=p+2:G0T0 3750 ELSE 3880 

3870 1F HID*(criterei,p,2)=*uu' THEN IF et<= 

0 THEN et=-l:p=p+2:60T0 3750 

3880 PRINT bp*::er=l 

3890 RETURN 

3900 REH 

3910 REH Vérification operateurs 
3920 DATA O,<=,>=,dans,=,>,<,cont 
3930 RESTORE 3920 

3940 NHILE q<=Iong:IF HID*(critere*,q,1)=CHR 
1(34) THEN 3960 
3950 q=q+l:NEND 

3960 c$=HID$(critere$,p,q-p):p=q 

3970 FOR c=0 TO 7: READ co«p$:IF ciOcD«pi TH 

EN NEXT 

3980 RETURN 

3990 REH 

4000 p=p+l:q=p 

4010 NHILE q<=long:IF HIDi(criterei,q,l)=CHR 
*(34) THEN 4030 
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4020 q=q+l:HEND 

4030 cht=HlDt(criteret,p,q-p):p=q+l:IF typel 
(r)=78 THEN ch=VAL(cht) 

4040 RETURN 
4050 REH 

4060 reh mttntmtutunnmu 

4070 REH t Recherche dans fichier * 

4080 reh tmttttmttttttttttttttt 

4090 REH 

4100 REH Recherche sur 1er critère 
4110 FOR f=0 TO rec-1 

4120 trouve=0:fichet=LONERt(fichet(f,r)) 

4130 ON saut GOSUB 4420,4440,4460,4480,4 

500,4520,4540,4540 

4140 IF (trouve XOR c) THEN rechï(total) 

=f:total=total+l 

4150 NEXT f 

4160 RETURN 

4170 REH 

4180 REH Recherche sur les autres critères ( 
ET) 

4190 n=0 

4200 NHILE n<total 

4210 trouve=0:fichet=LONERt(fichet(rechï 

(n),r)) 

4220 ON saut SOSUB 4420,4440,4460,4480,4 

500,4520,4540,4540 

4230 IF (trouve XOR c) THEN n=n+l ELSE t 
atal=total-l:rechï(n)=rechï(total) 

4240 NEND 
4250 RETURN 
4260 REH 

4270 REH Recherche sur les autres critères ( 
OU) 

4280 FOR f=0 TO rec-1 
4290 FOR n=0 TO total-1 

4300 IF rechï(n)=f THEN 4350 

4310 NEXT n 

4320 trouve=0:fichet=LONERt(fichet(f,r)) 

4330 ON saut GOSUB 4420,4440,4460,4480,4 

500,4520,4540,4540 

4340 IF (trouve XOR c) THEN rechï(total) 

=f:total=total+l 

4350 NEXT f 

4360 RETURN 

4370 REH 

4380 REH Recherche tous 

4390 FOR f=0 TO rec-1 :rechï(f):NEXT:total= 

rec:RETURN 

4400 REH 

4410 REH Test critère 

4420 IF VflL(fichet)Och THEN trauve=l 

4430 RETURN 

4440 1F fichetOcht THEN trouve^ 

4450 RETURN 

4460 IF VAL(fichet)<=ch THEN trouve=l 
4470 RETURN 

44BO IF fichet<=cht THEN trouve=l 
4490 RETURN 

4500 1F VAL(fichet)>=ch THEN trouve=l 
4510 RETURN 

4520 IF fichet>=cht THEN trouve=l 
4530 RETURN 

4540 IF c THEN trouve=-(INSTR(fichet,cht)=0) 
ELSE trouves-(INSTR(cht,fichet)< >0) 

4550 RETURN 
4560 REH 
4570 REH mtttt 
4580 REH I Tri J 


4590 REH ttttttt 
4600 REH 
4610 tri2=0 

4620 INPUT 12,"Tri sur quel nuaero de rubriq 
ue : ",r:c=-(r<0):r=ABS(r)-l 
4630 IF r<0 THEN 4770 

4640 IF r>rubrique THEN PRINT bpt ; : GOTO 4620 
4650 tri2=1 

4660 saut=l-(typeZ(r)=78) 

4670 n=total-l:per»ut=l 
4680 PRINTI2,"Tri en cours..." 

4690 NHILE peraut 
4700 periut=0:n=n-l 

4710 FOR i=0 TO n 

4720 trouve=0:0N saut GOSUB 4790,481 

0 

4730 IF (trouve XOR c)=0 THEN te«pï= 

rechZü ):rechZ(i)=rechï(i+l) : rechï ( i+1 )=te*p 

Z:periut=l 

4740 NEXT i 

4750 NEND 

4760 PRINTI2,"Tri teraine" 

4770 RETURN 
4780 REH 

4790 IF LONERt!fichet(rechï(i),r)K=LONERt(f 
ichet(rechï(i+1),r)) THEN trouve=l 
4800 RETURN 

4810 IF VAL (f ichet (rechïü) ,r)K=VAL (f ichet ( 
rechï(i+l),rl) THEN trouve=l 
4820 RETURN 
4830 REH 

4840 reh immimmmmmtt 
4850 REH I Hodif partielle fiche t 

4860 reh mtunmnnmmtm 
4870 REH 

4880 PRINTI2,lftSTRIN6t(27,trt)’ Hodificatio 
n partielle "STRINGt(27,trt); 

4890 INPUT 12,"Sur quel nuiero de rubrique : 
",r:r=r-l 

4900 IF r<0 OR r>rubrique THEN PRINT bpt:GOT 
0 4890 

4910 PRINT#2,fichetlf,r); 

4920 GOSUB 5210:fichetlf,r)=fiche* 

4930 GOTO 5070 

4940 reh tttmtttttttmtmtt 

4950 REH » Hodif totale fiche t 

4960 reh mmttmmmmit 

4970 REH 

4980 PRINT#2,lftSTRINGt(28,trt)" Hodificatio 
n totale "STRINGt129,trt): 

4990 FOR r=0 TO rubrique 
5000 PRINTI2,fichetlf,r);fdt;: LINE INPUT 
12,fichet 

5010 IF typeX(r)=67 THEN 5050 

5020 IF fichet=*‘ THEN 5060 

5030 nua=VAL(fichet):a=ASC (fichet): IF n 

ui=0 AND a<>48 THEN PRINTI2,bpt"Type nuaeriq 

ue requis":G0T0 5000 

5040 fichet=STRt(nui) 

5050 IF fichetO"" THEN f ichetlf ,r)=fich 
et 

5060 NEXT r 
5070 CLS 12 

5080 FOR r=0 TO rubrique:GOSUB 580:NEXT r 
5090 RETURN 
5100 REH 

5110 reh mmmt 

5120 REH t Delete > 

5130 reh mmmt 


5140 REH 

5150 FOR r=l TO rubrique:fichet(f,r)="":NEXT 
r 

5160 fichetlf,0)=nult 

5170 IF f=rec-l THEN rec=rec-l 

5180 PRINT#2, HfFICHE EFFACEE" 

5190 RETURN 
5200 REH 

5210 PRINTI2," : *; 

5220 LINE INPUT 12,fichet:IF typeï!r)=67 THE 
N 5260 

5230 IF fichet=" THEN nu»=0:G0T0 5250 
5240 nu*=VAL (fichet):a=ASC (fichet): IF nua= 
0 AND a<>48 THEN PRINTI2,bpfType nuaerique 
requis":60T0 5210 
5250 fichet=STRt(nua) 

5260 RETURN 
5270 REH 

5280 reh ummttmmmi 
5290 REH t Haj apres Delete t 

5300 reh mmttmmmm 

5310 REH 

5320 IF tri2 OR et<0 THEN GOSUB 5450 
5330 FOR n=0 TO total-1 
5340 f=rechX(n): IF f>=0 THEN 5410 

5350 f=-f-l 

5360 NHILE f<rec:rec=rec-l:g=rec 

5370 IF fichet(g,0)<>CHRt(0) THEN 54 

00 

5380 NEND 

5390 GOTO 5420 

5400 FOR r=0 TO rubrique: -f i chet (f, r ) =f i c 

het(g,r):fichet(g,r)="*:NEXT r 

5410 NEXT n 

5420 aea=FRE(""l 

5430 RETURN 

5440 REH 

5450 n=total-l:peraut=l 

5460 NHILE peraut:peraut=0:n=n-l:F0R i=0 TO 

n 

5470 a=rechZ(i): IF a<0 THEN a=-a-l 

5480 b=rechZ(i+1): IF b<0 THEN b=-b-l 

5490 IF a>b THEN teapï=rechl(i):rechï(i)=rec 

hï(i+1):rechï(i♦1)=teapï: pereut=1 

5500 NEXT i:NEND 

5510 RETURN 

5520 REH 

5530 reh mmmmmt 

5540 REH t Explications t 

5550 reh mmmmmt 

5560 REH 
5570 CLS 
5580 ZONE 13 

5590 PRINT:PRINT:PRINT,"Ce prograaae de gest 
ion de fichiers vous peraet :* 

5600 PRINT:PRINT:PRINT"- de creer les differ 
entes rubriques constituant un enregistreaen 
t" 

5610 PRINT" de votre fichier." 

5620 PRINTîPRINT’- de saisir,aodifier,efface 
r,rechercher (suivant un ou plusieurs criter 
es," 

5630 PRINT" a l’aide des operateurs: =,<>,< 
,<=,>,>=,'dans’,’cont’,"et","ou",’tous’), 
5640 PRINT" trier (selon une rubrique),un o 
u plusieurs enregistreaents." 

5650 PRINT:PRINT"- de sauvegarder votre fich 
ier sur cassette et de le rappeler ultérieur 
eaent.' 
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5660 PRINT:PRINT:PRINT,iv* - Pressez une touch 
e pour changer de page'iv* 

5670 EOSUB 510 
56B0 CLS 

5690 PRINT:PRINT:PRINT"Re«arques :" 

5700 PRINT:PRINT:PRINT*- Il vous est deiande 
,lors de la création du fichier,de préciser 1 
5710 PRINT" le type des rubriques (chaine o 
u nueerique);celui-ci detereine en fait" 

5720 PRINT" le type de recherche et de tri 
qui seront appliques." 

5730 PRINT:PRINT"- Lors d’une operation de i 
édification,un siiple appui sur <ENTER>" 

5740 PRINT" ne lodifie pas le chaip courant 
(si tel est votre souhait)" 

5750 PRINT" et le progra»ie passe au chatp 


de chargeeent d’un fichier détruisent* 

5770 PRINT" tout fichier présent en «e»oire 
■ 

5780 PRINT:PRINT:PRINT,iv$"Pressez une touch 
e pour revenir au ienu'iv* 

5790 60SUB 510 
5800 ZONE 25 
5810 RETÜRN 
5820 REH 

5830 reh ttttttmnmmntm 
5840 REH t 6estion des erreurs » 

5850 reh mmmmmmmu 

5860 REH 

5870 er=l:PRINT bp»; 

5880 IF ERR=6 THEN PRINTI2,"Valeur nueerique 
trop grande !" ELSE 5940 


5910 IF ERl-5030 THEN RESUHE 5000 
5920 IF ERL=5240 THEN RESUHE 5210 
5930 RESUHE 

5940 IF ERR=13 OR ERR=5 THEN PRINTI2,"Type n 
ueerique requis":G0T0 5890 
5950 IF ERR=14 THEN PRINTI2,"Plus de place ■ 
eeoire...désolé...":FOR t=l T0 2000:NEXT:80T 
0 2180 

5960 IF ERR=16 THEN ■ei=FREC") : RESUHE 
5970 IF ERR=24 THEN PRINT'Rencontre EOF prêt 
aturee":B0T0 1850 

5980 IF ERR=25 THEN PRINT'Fichier de type in 
correct":60T0 1850 

5990 PRINTI2,"Erreur";ERR;"a la ligne’jERL;" 
.Progra*»e teriine." 

6000 END 


suivant." 

5760 PRINTîPRINT'- Les choix de création et 


5890 IF ERL=3780 THEN RESUHE 3890 
5900 IF ERL=4030 THEN RESUHE 4040 






CONCEPT 

Machine : Apple II sous Prodos 
(80 colonnes). 

Langage: Basic. 

X5«sir ; r 




Michel Coudray 

Quatorze ans et demi. Michel est en 
classe de troisième. Il a abordé l’infor¬ 
matique par l’intermédiaire de l’Apple 
paternel. Aime la programmation mais 
aussi les jeux d’aventure, le hand bail 
et le cinéma. Depuis un an, Michel 
consacre en moyenne cinq heures par 
semaine à la programmation. 


10 

0NERR 60T0 2210 

20 

GOTO 120 


30 

: 


40 

REH - 

— S0US-PR0GRAHHES 

50 

: 


60 

VTAB 3: CALL 

- 958: RETURN 

70 

VTAB 1: HTAB 

16: CALL - 868: PRINT 


: VT AB 1: P0KE 1403,(7? - LEN !TI$)): P 
RINT TI*: RETURN 

80 VT AB 5: INPUT "Donnez le no» du fich 
ier s.v.p.: ":NF$: RETURN 
90-: 

100 REH -PRESENTATION 

110 : 

120 CD$ = CHR* (4):DI = 1: DIM D0$(10,5 
0 ) 


oncept est un utilitaire à deux 
fonctions principales. 

Il permet une utilisation plus 
aisée de Prodos, gestion de la date 
pour catalog, commande fichiers, 
catalog, et une partie « fichiers » permet 
de créer et lire des petites fiches. 


Michel COUDRAY 


130 TEXT : NORMAL : H0HE : PRINT CD*;"P 
R£3": PRINT 

140 VTAB 1: HTAB 29: PRINT "Hichel COUD 
RAY présente" 

150 INVERSE 

160 VTAB 4: HTAB 36: PRINT * 

170 HTAB 36: PRINT " CONCEPT " 

180 HTAB 36: PRINT * 

190 N0RHAL 

200 VTAB 9: HTAB 29: PRINT "prograMé 1 
e 18/05/1986" 

210 VTAB 23: HTAB 8: PRINT "Appuyez sur 
la touche ’RETURN’ pour coiiencer le pr 
ograiie s.v.p." 

220 TH s PEEK ( - 16384) : IF TH < 128 T 
HEN 220 


230 

P0KE 

- 16368,0: IF TH - 128 < > 1 

3 THEN 220 


240 

: 


250 

REH ■ 

- ÏNÏTÏALÏSATÎON 

260 

: 


270 

FOR I 

= 770 T0 791: READ A: P0KE I, 

A: NEXT 


2B0 

DATA 

173,48,192,136,208,5,206,1,3, 

240, 

9,202,: 

208,245,174,0,3,76,2,3,96,0 

290 

FOR I 

= 1 TQ 4: READ HGt(I): NEXT 

300 

DATA 

Disquettes.Fichiers,Date,Suit 

ter 



310 

FOR I 

- 1 T0 6: READ HD*(I): NEXT 

320 

DATA 

Lock,Unloct,Delete,Exécution, 

Catalog,Lecteur 

330 

FOR I 

= 1 T0 3: READ HF*(I): NEXT 

340 

DATA 

Créer,Remplir,Lire 

350 

H0HE 


360 

_ ■ 

VTAB 1 

1: HTAB 2: PRINT "Date: --/--/ 

370 

PRINT 

■ 


380 VTAB 21: PRINT * 


390 VTAB 23: HTAB 2: PRINT "CONCEPT, pa 
r Hichel COUDRAY 



40 


























progra»«é le 18/05/1986" 

400 POKE 35,20 
410 : 

420 .REM -MENU 6ENERAL, 

430 : 

440 GOSUB 60:TI$ = ‘Menu général": GOSU 
B 70 

450 VTAB 5 

460 FOR I = 1 TO 4: HTAB 35: PR INT "Ci 
Ii") ";MG$(I): PR1NT : NEXT 
470 VTAB 15: HTAB 14: PR1NT "Appuyez su 
r 1,2,3 au 4 pour choisir une option s.v 

,p." 

480 TH = PEEK ( - 16384): IF TH < 128 T 
HEN 480 

490 POKE - 16368,0:NB = VAL ( CHR* (T 
H - 128)) 

500 1F NB < 1 OR NB > 4 THEN POKE 768, 
10: POKE 769,10: CALL 770: 60T0 480 
510 ON NB 60T0 550,1000,1950,2100 
520 : 

530 REM -MENU DISQUETTES 

540 : 

550 60SUB 60:TI* = "Menu disquettes": 6 
OSUB 70 
560 VTAB 5 

570 FOR I = 1 TO 6: HTAB 35: PRINT "Ci 
Ii") "; MD*( I ): PRINT : NEXT 
580 VTAB 19: HTAB 13: PRINT ‘Appuyez su 
r 1,2,3,4,5 ou 6 pour choisir une option 

s.v.p. " 

590 TH = PEEK ( - 16384): IF TH < 128 T 
HEN 590 

600 POKE - 16368,0:NB = VAL ( CHR* (T 
H - 128)) 

610 IF NB < 1 OR NB ) 6 THEN POKE 768, 
10: POKE 769,10: CALL 770: GOTO 590 
620 ON NB GOSUB 640,690,740,790,840,910 
630 GOTO 440 

640 GOSUB 60:TI* = "Lock": GOSUB 70 
650 GOSUB 80 

660 VTAB 7: PRINT "Travail en cours sur 
disque "; DI 

670 PRINT CD»;"LOCK";NFt;",D";DI 
680 RETURN 

690 GOSUB 60:TI* = "Unlock": GOSUB 70 
700 GOSUB 80 

710 VTAB 7: PRINT "Travail en cours sur 
disque "; DI 

720 PRINT CD*; "UNLOCK"" ; NF*; *, D" ; DI 
730 RETURN 

740 GOSUB 60:TI* = "Delete": GOSUB 70 
750 GOSUB 80 

760 VTAB 7: PRINT "Travail en cours sur 
disque "; DI 

770 PRINT CD»;"DELETE";NF*;",D";DI 
780 RETURN 

790 GOSUB 60:Tl* = "Exécution": GOSUB 7 
0 

800 VTAB 7: PRINT "Cette option pereet 
d’ exécuter des Fichiers BAS.BIN et SYS* 
810 GOSUB 80 


820 VTAB 9: PRINT "Merci d’avoir utilis 
é ce progra**e..." 

830 PRINT CD*i"-";NF*:",D":DI: END 
840 GOSUB 60:TIt = "Catalog": GOSUB 70 
850 POKE 34,3 

860 VTAB 4: PRINT CD*;"CATALOG,D"; DI 
870 POKE 34,0 

880 TH = PEEK ( - 16384): IF TH < 128 T 
HEN 880 

890 POKE - 16368,0: IF TH - 128 < >1 
3 THEN 880 
900 RETURN 

910 GOSUB 60:TI* = "Lecteur": GOSUB 70 
920 VTAB 5: PRINT "Entrez le n" du lect 
eur désiré s.v.p. (1 ou 2)" 

930 TH = PEEK ( - 16384): IF TH < 128 T 
HEN 930 

940 POKE - 16368,0:DI = VAL ( CHR* (T 
H - 128)) 

950 IF DI < 1 OR DI > 2 THEN POKE 768, 
10: POKE 769,10: CALL 770: 60T0 930 
960 RETURN 
970 : 

980 REM -MENU FICHIERS 

990 : 

1000 GOSUB 60:TI* = "Menu Fichiers": GO 
SUB 70 
1010 VTAB 5 

1020 FOR 1=1 TO 3: HTAB 35: PRINT "(" 
il;") ";MF*(I): PRINT : NEXT 
1030 VTAB 15: HTAB 13: PRINT "Appuyez s 
ur 1,2 ou 3 pour choisir une option s.v, 
P-' 

1040 TH = PEEK ( - 16384): IF TH < 128 
THEN 1040 

1050 POKE - 16368,0:NB = VAL ( CHR* ( 
TH - 128!) 

1060 IF NB < 1 OR NB > 3 THEN POKE 768 
.10: POKE 769,10: CALL 770: GOTO 1040 
1070 ON NB GOSUB 1090,1260,1610 
1080 GOTO 440 

1090 GOSUB 60:TI* = "Créer": GOSUB 70 
1100 VTAB 5: CALL - 868: INPUT "No«bre 
de catégories (1 à 10): *;NC* 

1110 NC = VAL (NC*): IF NC < 1 OR NC > 
10 THEN POKE 768,10: POKE 769,10: CALL 
770: GOTO 1100 
1120 FOR I = 1 TO NC 
1130 VTAB 6 + I: CALL - 868: INPUT "Ca 
tégorie: ";CA*(D: IF LEN (CAt(I)) > 20 
THEN POKE 768,10: POKE 769,10: CALL 77 
0: GOTO 1130 
1140 NEXT 

1150 GOSUB 60:TI* = "Sauvegarde créatio 
n": GOSUB 70 
1160 GOSUB 80 

1170 VTAB 7: PRINT "Travail en cours... 

■ 

1180 PRINT CD*;"OPEN";NF* 

1190 PRINT CD*:"NRITE'iNF* 

1200 PRINT NC 
1210 FOR I = 1 TO NC 


1220 PRINT CA*(I) 

1230 NEXT 

1240 PRINT CD*;"CLOSE";NF* 

1250 RETURN 

1260 GOSUB 60:TI* = "Reiplir"; GOSUB 70 
1270 GOSUB 80 

1280 VTAB 18: PRINT ‘Appuyez sur la tou 
che ’RETURN’ pour sauvegarder..." 

1290 PRINT CD»;"OPEN";NF* 

1300 PRINT CD»;"READ";NF* 

1310 INPUT NC 
1320 FOR I = 1 TO NC 
1330 INPUT CA*( I ) 

1340 NEXT 

1350 PRINT CD*;"CLOSE";NFt 

1360 FOR I = 1 TO NC 

1370 VTAB 6 + I: PRINT CA*(I) 

1380 NEXT 

1390 ND = 1 

1400 FOR 1=1 TO NC 

1410 VTAB 6 + I: HTAB 21: CALL - 868: 

INPUT * : * ; DO*(I,ND) 

1420 IF LEN (DO*(I,ND)) > 40 THEN POK 
E 768,10: POKE 769,10: CALL 770: 60T0 14 
10 

1430 IF DO*(I,ND) = "" THEN SA = 1 
1440 NEXT 

1450 IF SA = 1 THEN 1490 
1460 ND = ND + 1 
1470 IF ND = 51 THEN 1490 
1480 GOTO 1400 

1490 SA = 0:ND = ND - 1: GOSUB 60:TI* = 
"Sauvegarde Fichier": GOSUB 70 

1500 VTAB 5: PRINT "Travail en cours... 

■ 

1510 PRINT CD*;"OPEN FI.";NF* 

1520 PRINT CD»;"WRITE FI.";NF* 

1530 PRINT ND 
1540 FOR I = 1 TO ND 
.1550 FOR J = 1 TO NC 
1560 PRINT DO*(J.I) 

1570 NEXT 3 
1580 NEXT I 

1590 PRINT CD*;"CLOSE FI.";NF* 

1600 RETURN 

1610 GOSUB 60:TI* = "Lecture Fichier": 
GOSUB 70 
1620 GOSUB 80 

1630 VTAB 18: PRINT "Appuyez sur la tou 
che ’RETURN’ pour continuer..." 

1640 PRINT CD*;"OPEN";NF* 

1650 PRINT CD»;"READ";NF* 

1660 INPUT NC 
1670 FOR 1=1 TO NC 
1680 INPUT CA*(I) 

1690 NEXT 

1700 PRINT CD*;"CLOSE";NF* 

1710 FOR I = 1 TO NC 

1720 VTAB 6 + I: PRINT CA*(I) 

1730 NEXT 

1740 FOR I - 1 TO NC: HTAB 21: VTAB 6 + 
I: PRINT ":": NEXT 
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1750 PRINT CDts'OPEN FI.'îNF* 

1740 PRINT CD$:"READ FI.'îNF* 

1770 INPUT ND 
1780 FOR 1=1 TO ND 
1790 FOR J = 1 TO NC 
1800 INPUT DO$(J.I> 

1810 NEXT J 
1820 NEXT I 

1830 PRINT CD*;’CLOSE FI.';NF* 

1840 AF = 1 

1850 FOR 1 = 1 TO NC 

1840 HTAB 22: VTAB 4+1: CALL - 848: 

PRINT DO*(I,AF) 

1870 NEXT 

1B80 TH = PEEK ! - 14384): IF TH < 128 
THEN 1880 

1890 POKE - 14348,0: IF TH - 128 < > 
13 THEN 1880 

1900 AF = AF + 1: IF AF = ND + 1 THEN R 
ETURN 

1910 60T0 1850 
1920 : 

1930 REM -DATE 

1940 : 

1950 60SUB 40:TI* = ■Date': SOSUB 70 
1940 VTAB 5: CALL - 848: INPUT 'Jour d 
u lois: * ; JR* 


1970 JH = VAL (JM*): IF JH < 1 OR JH > 
31 THEN POKE 748,10: POKE 749,10: CALL 
770: GOTO 1940 

1980 VTAB 4: CALL - 848: INPUT 'Mois: 
■;H0* 

1990 HO = VAL (MO*): IF HO < 1 OR HO > 
12 THEN POKE 748,10: POKE 749,10: CALL 
770: 60T0 1980 

2000 VTAB 7: CALL - 848: INPUT 'Année: 
■;AN* 

2010 AN = VAL (AN*): IF AN < 1 OR AN > 
99 THEN POKE 748,10: POKE 749,10: CALL 
770: GOTO 2000 

2020 POKE 49041,AN * 2 + (HO > 7) 

2030 IF HO < B THEN POKE 49040,HO t 32 
+ JH: GOTO 2050 

2040 POKE 49040,(HO - 8) » 32 + JH 
2050 VTAB 1: CALL - 848: PRINT ' Date: 
';JH;'/';M0;'/';AN 
2040 GOTO 440 
2070 : 

2080 REM -QUITTER 

2090 : 

2100 GOSUB 40:TI* = 'Quitter': 60SUB 70 
2110 VTAB 5: PRINT "Voulez-vous charger 
une autre disquette ? (0 ou N)' 

2120 TH = PEEK ( - 14384): IF TH < 128 


THEN 2120 

2130 POKE - 14348,0: TH = TH - 128:TH* 

= CHR* (TH) 

2140 IF TH* = '0* THEN 2170 

2150 IF TH* = *N' THEN TEXT : HOME : E 

ND 

2140 POKE 748,10: POKE 749,10: CALL 770 
: GOTO 2120 

2170 PRINT CD*;'PR£4* 

2180 : 

2190 REH - TRAITEHENT ERREURS 

2200 : 

2210 GOSUB 40:TI* = 'Erreur': GOSUB 70 
2220 ER = PEEK (222) 

2230 VTAB 5: PRINT "Nu«éro de l’erreur: 
':ER 

2240 VTAB 7: PRINT "Consultez un aanuel 
pour plus de renseignements* 

2250 VTAB 15: PRINT "Appuyez sur la tou 
che ’RETURN’ pour continuer..." 

2240 TH = PEEK ( - 14384): IF TH < 128 
THEN 2240 

2270 POKE - 14348,0: IF TH - 128 < > 
13 THEN 2240 
2280 GOTO 440 


=C*128 


TRACKER 

Langage: Basic. 

Machine: Commodore 128 et 
lecteur de disquette. 




Olivier Baby 

Olivier a seize ans. Il a commencé à 
programmer en classe de cinquième, 
d’abord avec son ZX81, puis avec le 
Commodore 64 du collège. Possède 
maintenant un C128 et s’initie au 
langage machine. Rêve d'avoir un jour 
un doctorat en informatique! 


G râce à ce programme, les 
disquettes n'auront plus de 
secrets pour vous. Le 
programme affiche le contenu de 
disquettes par tranches de soixante- 
quatre octets, en hexadécimal et en 
clair (si possible). 

Les commandes: 


+ : affiche la page suivante (64 octets 
suivants) ; 

- : affiche la page précédente ; 

P : incrémente le numéro de piste ; 



S : incrémente le numéro de secteur; 
CTRL P : écriture du secteur sur la 
disquette; 

RUN/STOP : fait un RESET; 

S : donne le catalogue de la disquette 
(NO SCROLL arrête le défilement). 
RETURN : lit le secteur (Piste P secteur 
S). 

Pour modifier un octet, il suffit de se 
positionner sur cet octet à l’aide des 
touches curseurs et de taper la 
nouvelle valeur (en hexadécimal). 
Attention: lorsqu’un octet est 
modifié, il n'est pas écrit sur la- 
disquette, pour l’écrire, il faut taper 
Control P. 


Olivier BABY 
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0 POKE S08 .■ PEEK C 868 > —3 = FflST 

C>+128 

5 COL OR 4, 1 : COLOR 0,1'COLOR 5,14 

305 POKE 1024+XC+40#VC+1,PEEKC1O24+XC+40 

10 TROP 735 

*VC+1} +128 = RETURA 

15 DCLEPR 00,US 

-310 G ET KEV K T 

20 GRfiPHIC ©, 1. 

315 IF <K*>="0"ANDK$<="9"> OR CKT>="H"AA 

2 5 DIM 0 C t < 2 5 5 > , 0 C < 255;> 

DKt<="F"> THEA 630 

30 P=0 = FOR Kl<= 1 T 0 8 : KEV KK, "" ' AEXT K K 

320 IF KTO-"HI"THEA 350 

35 PRINT TflB<13) "THE TRAORER 

325 XC=XC+3=IF XC>28 THEA XC=XC—3 = GOTO 7 

4 0 F 1 RIN T T ft B < 13 > 1 ’- 

25 

45 PR I NT : 8 

330 GOSUB 300 

50 FOR V=1 Tü 8 =0=0+8 

335 F' 0 K E 1024 ■+• H U+4 U V L-—3 .* F' F E K 1 ü 4+N U+4 U 

55 Ht=HEXt<D> 

*VC-3 > - .1.28 

6 © PRINT "h. " H* " " 

340 POKE 1024+XC+40*VC—2,PEEK C1024+XC+4O 

65 PRINT 

#VC—£>—12B 

70 NEXT V 

3 4 5 o C=0 C +1 = G O S U B 240 'GOTO 3.1 @ 

75 PI =01 = SE=00 = OC=0 = MS=20 

350 IF Kt<>" II" THEA 380 

80 GOSUB 240=GOSUB 270 

355 XC=XC—3'IF XC <6 THEA XC=XC+3'GOTO 7 

8 5 GOSUB 15 5 = G 0 S U E? 9 0 = G 0 T 0 14 0 


90 PRINT ,, ÿiSM?r3".; 

360 GOSUB 300 

S 1 5 FOR Fl ~ P 4; 8 4 T U F' $ S 4+ 1 - 3 8 TE F' W 

365 POKE 1024+XC+40*VC+3,PEEK C1024+XC+40 

100 PR I NT T AB ce::'.; 

*VC+3 > — 128 

105 FOR B =0 TO 7 

370 POKE 1024+XC+4O*VC+4,PEEKC1024+XC+40 

110 BV$=RIGHT* <HEX*<OC<A+B>>,2> 

*VC+4>—128 

115 PRIAT BVt " 

375 0 C=0C-1 'G0SUE 240'GOTO 310 

120 NEXT B'PRIAT "k'CT.; 

380 IF KÎO",S"THEA 410 

125 FOR: C=0 TO 7'GOSUB 205 

385 VC=VC+2 ' IF VOIS THEA VC=VC—2 ' GOTO 7 

130 PRIAT "ïS"DT"H".; = AEXT C 

c 

1,35 PR I AT ' PR I AT = AEXT A = RETURA 

390 GOSUB 300 

140 SLOW=GOTO 295 

395 POKE 1024+XC+40#<YC-2>,PEEK <1024+XC+ 

145 EAD 

40* C VC-2> >-128 

150 RE A -R E A DIA G--- 

400 POKE 1 y 24+K C+4 Li # V L-—2+1 .. F'EEK 1024 - +î x î 

155 CHAR 0,13,18, "ï* READIAG " , 1 = GREA 

C+40* C VC-2> +1>-128 

;j 5 0 , 1 5 

405 0C=0C+8=GOSUB .240=GOTO 310 

160 OPEA 5,8,5,"#" 

410 IF KtO'LT'THEA 445 

165 PR I AT# 15 , " U1 " .; 5 ; 0 ; PI .; SE 

415 VC=VC—2'IF VC<3 THEA VC=VC+2'GOTO 72 

170 FOR 8=0 TO 255 

CT 

175 GET# 5, CT* 

420 GOSUB 300 

1 80 0C $ C B > -- C T t = 0 C C B>=A S C C C T $ > 

425 POKE 1024+XC+4O*C VC+2> , PEEK C1024+XC+ 

185 AEXT B 

40* C VC+2? I' — 128 

190 CLOSE 5'CLOSE 15 

■4 .r! i- 'i F'üKE 1 Li 2 4 ■+* ! x ! L" •+* 4 W & C N -1 U ■+■ 2 ."* ■+• i .1 F'EE.K *•. 1 fei24+X 

195 CHAR 0,13,18," "'RETURA 

C+40* < VC+2 +1 >.128 

200 REM A FF CA R:—---- 

435 OC=OC— 8 'GOSUB £40=GOTO 310 

205 D=A S C C 0 C t C A+C > > 

440 P p |vj - P |-| 0 £ --- 

210 IF D-C35 OR D>95 THEA 220 

445 IF KTO"+"THEA 480 

215 GOTO 225 

458 P=P+1 ' IF P>3 THEA P==P-1 ' GOTO 725 

220 IF DC32 OR 0>33 THEA 230 

455 PRIAT"53"'PRIAT'PRINT 

225 OT=CHRTCD::' = RETURA 

460 D=P*64—S 

230 Dt=CHRtC 46>'RETURA 

465 FOR V=1 TO 8 =0=0+8 

235 REM -T/8/0- 

470 Ht=HEXt C D > = PR I AT " k " Ht ' PR I AT = AEXT 

240 CHAR R . R . 19 . "33--- 

l <t l 

--------" 

475 UUyüB yt? : UL-=P#64 : U U *3 UE' 24W : GOTO 

245 PRIAT" PISTE ' S!" .: RIGHTtCHEXtCPI >, 2> " 

295 

SECTEUR = " RIG HT T C H EX T- C SE > , 2 > .: 

480 IF Kt<>"—"THEA 500 

250 R R' I AT " 330CTET ' Si" , RI GH TT C HEXt C OC 

485 P=P~.l ' IF P<@ THEA P=P+1=G0T0 725 

• 2 ) 

490 GOTO 455 

Il r -io 


255 PR INT 

_______il ; 

500 IF KtO"P" THEA 550 

260 RE 'T URA 

505 PI - PI+1 = IF PI>35 THEA PI=1 

265 REM - COMMAND - 

510 IF PI<18 THEA MS=20 

270 PRIAT "k + S F' A GE SUIVANTE 

515 IF PI>17 AND PI<25 THEA MS=18 

F PISTE" 

528 IF PI>24 AND PI<31 THEA MS=17 

275 PRIAT "k - SF'AGE PRECEDENTE 

525 IF PI>30 THEA MS=16 

S SECTEUR" 

530 IF SE>MS THEA SE=0 

280 PRIAT "k CTRL—P BECRITURE 

535 GOSUB 240 

■$ CATAL.OG" J 

5 4 t.i U E T K h. V K IF K '$■= C H R T £ 13 . T H E H S 0 

285 RETURA 

545 GOTO 3.15 

290 REM - CURSOR - 

550 IF K$<> " S " THEA 565 

295 XC =6 ' VC=3 ' GOSUB 300 = GOT0 310 

555 SE--SE+1 'GOTO 530 

300 POKE 1024 + XC + 40 * VC , PEEKC1024+XC+40*V 

560 REM - WRITI AG --- 
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,1^ OPEN 


565 I F r K*<>" S" THEN 615 

570 CH R R 0, 13.. 18.. "fS WRITING 


15, 

. 8, 15 


cr rr 

GFEN 5,8 

, 5,"#" 

530 

FOR B=0 

TO 255 

585 

PRINT# 1 

5, "B-P" .: 5 .: B 

5.98 

PRINT# 5 

, OC* < B .: 

5.95 

N EXT B 


606 

PRINT# 1 

5, "IJ2" .: 5.: 0.: PI ; SE 

665 

CLOSE 5^ 

CLOSE 15 

616 

CHRR 0,1 

3 , 18, " 

0 



615 

1F K*OC 

HR*(13) THEN 695 

626 

GOTO 88 



63© CHRP 0.. XC, VC, K*> 1 

640 GETKEV K* ; IF < K*>="0"RNDK*<="9") OR 

< K*>= " Fl " RNDK*<= " F " > THEN 665 

645 RP=PEEK<1024+XC+1+VC*40>-128 

650 IF RP<7 THEN RP=RF'+64 

655 R*=CHR*<RP>>TT*=L*+R*=OC<OC>=DEC<TT* 

> : OC* < OC>=CHR* < OC<OC>> 

660 R=0 : C=OC ^ GOSUB 205 ■ CHFlR 0.. 31+OC-1 NT C 
OC/8>#8.. VC.. D*, .1. = GOTO 320 
665 C H R R 0.. X C +1, V C, K *.. .1. 


670 R*=K* 

675 TT *=L*+R* • U U (. UC ;< =DtC c. ! 1 T : i_jc* uO.- 1 “CH 
R* < OC < OC > 

680 R=0 : C=OC ■ GOSUB 205 : CHFlR 0.. 31 +OC--.I NT < 
00/85*8,VC,D*,1 
685 GOTO 3:10 

695 IF KÆOCHRtC3) THEN 745 
700 WINDOW 0,20, 39.• 20 
705 IMPOT "rXRRE VOU SURE " ; RE -T 
71@ IF LEFT*<RE*.. 1 5 = 11 N" THEN 760 
715 SVS 65341 

725 VOL 2•SOUND 1,32768,15,,,,2 
730 GOTO 310 
735 RESUME 310 

74@ REM -CRTRLOG---- 

745 IF K$0"î" THEN 775 
75@ WI NDOW 0, 19, 39, 24 = COL.OR 5, 4 
755 S CNCL R = CRTRLOG = PR I NT " MSI" DS* = GETKEV K 
* 

760 WINDOW 0,0,39,24 

765 GOSUB 240 : GOSUB 270=GOTO 310 

770 REM -RETURN- 

775 IF K*OCHR*< 13> THEN 725 
780 GOTO 80 


TT® ^ 


MOS 


M0N0P0LY 

Machine : T07- 70, T07 plus 16 Ko. 
Langage: Basic 1.0. 




Olivier Roblin 

Quinze ans. Olivier est en classe de 
troisième. Il programme depuis deux 
ans, passant environ trois heures par 
semaine sur son ordinateur. Aime 
également le sport (football) et le ping- 
pong. 


C e programme permet de jouer 
au Monopoly à deux joueurs. 
Lorsqu'un joueur tombe sur la 
case départ, il touche 20 KF. On peut 
faire une transaction (vendre un terrain) 
n’importe quand dans la partie. La 
valeur des terrains construits est plus 
justement répartie. Un joueur ne peut 
jouer que deux fois de suite (au 
deuxième'double, on passe à l’autre 
joueur). Les familles «bleu foncé», 
«bleu clair», «violet», «orange», 
«rouge», «jaune», «verte», «cyan», 
sont appelées respectivement A, B, C, 
D, E, F, G et H. Quand un joueur tombe 
sur « impôt sur le revenu » ou «taxe de 
luxe» il paye respectivement 20 KF et 
10 KF au « Parc gratuit». Le joueur qui 


tombe sur cette case gagne son 
contenu. ■ 

Le jeu : 

Les dés tournent au milieu de l’écran, 
vous les arrêtez en appuyant sur la 
barre d’espace. Votre pion avance et la 
case sur laquelle il se pose est grossie 
au milieu. Si c’est un terrain que l’on 
peut acheter, l’ordinateur vous donne 
le choix entre: 

V pour voir vos propriétés; 

C pour construire (si vous avez une 
famille complète); 

Fl pour hypotéquer ou vendre des 
maisons'; 

A pour passer à l’autre joueur. 

Olivier ROBLIN 
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1 ’ 

2 ’ MONOPOLY 

7 ? 

5 SÇREEN 2,O,0:EOSUB 15000 

10 CLS : SCREEN 2,0.0: CLEAR100,,1 

11 LOCATE 10,10:PRINT*APPUIE SUR UNE TOU 
CHE 1 : A*=INKEY* 

12 A*=INKEY$ : A=RND 

13 IF fl$=" THEN 12 

15 LOCATE 10,10 îPRINT" 

":NRE=0:TRE=0: NPR=0:NPR2=0: PRI=0: 
PRI2=0:AR6E=150000 :AR6E2=150000 :DOU=0 
:VA=0:C0UP=0s C3=0:C31=0:C32=0:SIA=0:6A1 = 
0:6A2=0:NCA2=1 :NCA=1:CP1=33 : LP1=22 : 
CP2=34 : LP2=22 
20 DIM CAS$(41),CAS2$(41) 

22 CAS$(1)=*DEPART* 

23 CAS2»(l)=M.r 

24 CASS(2)="B. DE BELLEVILLE' 

25 CAS2S(2)=*6000“ 

26 CAS* (3)^CAISSE DE COMMUNAUTE" 

27 CAS2S(3)="i.1" 

28 CASS(4)=“RUE LECOURBE 1 

29 CAS2S(4)="6000" 

30 CASS (5)=* IMPOTS SUR LE REVENU 1 

31 CAS2S(5)="1.l" 

32 CASS(6)=’GARE MONPARNASSE* 

33 CAS2S(6)=“20000" 

34 CAS*(7)="RUE DE VAUGIRARD" 

35 CAS2*(7)=“10000* 

36 CAS*(8)=■CHANCE" 

37 CAS2S(8)=*1.1" 

38 CASS(9)=“RUE DE COURCELLES* 

39 CAS2S(9)=“10000* 

40 CAS*(10)=*A. DE LA REPUBLIQUE 1 

41 CAS2*(10)= 1 12000" 

42 CAS*(11)=*EN PRISON 1 

43 CAS2S(11)="1.1" 

44 CAS*(12) =1 B. DE LA VILLETTE* 

45 CAS2*(12) =“ 14000* 

46 CASS(13)="Cie DE DISTRIBUTION 1 

47 CAS2*(13)=*15000* 

48 CASS(14)=‘A. DE NEUILLY" 

49 CAS2S(14)=*14000“ 

50 CAS*I15)=*RUE DE PARADIS 1 

51 CAS2*(15)="16000" 

52 CASS(16)=‘SARE DE LYON 1 

53 CAS2*(16)=*20000* 

54 CASS(17)="A. DE MOZART" 

55 CAS2*(17)=*18000* 

56 CAS*(18)=*CAISSE DE COMMUNAUTE" 

57 CAS2S(18)=*1.1* 

58 CASS(19)=“B, St MICHEL 1 

59 CAS2*(19)=*18000" 

60 CASS(20)="PLACE PISALLE* 

61 CAS2*(20)= 1 20000 * 

62 CAS*(21)=*PARC GRATUIT* 

63 CAS2*(21) =1 1.1 “ 

64 CASS(22)=*A, DE MATIGNON* 

65 CAS2*(22)="22000 * 

66 CASS(23)=*CHANCE" 

67 CAS2*(23)=*1.1" 

68 CAS*(24)=*B. DE MALESHERBE" 


69 CAS2S(24)="22000* 

70 CAS*(25)="A. HENRI MARTIN 1 

71 CAS2*(25)=*24000* 

72 CAS*(26)=*GARE DU NORD 1 

73 CAS2*(26)=*20000* 

74 CAS*(27)="F. St HONORE 1 

75 CAS2*(27)="26000" 

76 CAS*(28)=*PLACE DE LE BOURSE 1 

77 CAS2*(28)=*26000* 

78 CAS*(29)="Cie DE DISTRIBUTION 1 

79 CAS2S(29)=* 15000 1 

80 CASS(30)="RUE LAFAYETTE 1 

81 CAS2*(30)=*28000* 

82 CASS(31)=*ALLEZ EN PRISON 1 

83 CAS2*(31)=*1.1 “ 

84 CAS*(32)=*A. DE BRETEUIL* 

85 CAS2*(32)="30000* 

86 CAS*(33)=*A. FOCH 1 

87 CAS2*(33)=* 30000 * 

88 CASS(34)= 1 CA ISSE DE COMMUNAUTE 1 

89 CAS2*(34)=“1.1" 

90 CASS(35)=*B. DES CAPUCINES 1 

91 CAS2*(35)=*32000* 

92 CASS(36)=*GARE St LAZARE 1 

93 CAS2*(36)=*20000* 

94 CASS(37)=*CHANCE* 

95 CAS2S(37)="1.1“ 

96 CAS*(38)=*A. DES CHAMPS ELYSES" 

97 CA52S(38)=“35000“ 

98 CAS*(39)=“TAXE DE LUXE" 

99 CAS2*(39)=*1.1* 

100 CAS*(40)="RUE DE LA PAIX 1 

101 CAS2*(40)="40000 1 
103 GOSUB 20000 

105 DEFGRt(O)=60,60,24,24,24,60,126,255 
110 LOCATE 0,0,0 
115 A=8 

150 FOR 1=16 TO 256 STEP 24 
160 BOX (I,A)-(I+24,A+16) 

170 NEXT I 

172 IF A=168 THEN 180 
175 A=168 : GOTO 150 

180 B=16 

181 FOR 1=8 TO 168 STEP 16 
190 BOX (B.I)-(B+24,1+16) 

200 NEXT I 

205 IF B=256 THEN 230 
210 B=256 : GOTO 181 
230 ’ 

240 LOCATE CP1,LP1 : COLOR 1 : ATTRB 0,0 
:PRINT GRS(O) : LOCATE CP2.LP2 : COLOR 
3: PRINT GR*(0) 

250 GOSUB 5000 

252 GOSUB 2500 

253 IF HA=HA2 AND VA=0 AND PR1=2 THEN PR 
1=0 

254 IF HA=HA2 AND VA=1 AND PRI2=2 THEN P 
R 12=0 

255 IF HA=HA2 AND D0U=0 THEN D0U=1 

256 IF DQU=1 THEN D0U=2 : GOTO 260 

257 IF D0U=2 AND VA=0 THEN VA=1 : D0U=0 
: GOTO 260 

258 IF D0U=2 AND VA=1 THEN VA=0 : D0U=0: 


GOTO 260 

260 IF VA=0 AND PRI=2 THEN GOTO 280 

262 IF VA=1 AND PRI2=2 THEN GOTO 282 

266 IF VA=0 THEN VA=1 :LOCATE 0,0:COLOR 

1:PRINT "ROUGE*: GOTO 310 

270 IF VA=l THEN VA=0 :LOCATE 0,O:COLOR3 

iPRINT’JAUNE": GOTO 1310 

280 NPR=NPR+1 : IF NPR=3 THEN GOSUB 25500 

:G0TO255 ELSE VA=1 :GOTO 250 

282 NPR2=NPR2+1 : IF NPR2=3 THEN GOSUB 25 

500:GOTO 255 ELSE VA=0:G0T0 250 

308 ’ 

309 ’ DEPLACEMENT PIONS 

310 ’ 

311 IF LP1=22 THEN 317 

312 IF CP 1=3 THEN 480 

313 IF LP1=2 THEN 580 

314 IF CP1=33 THEN 710 
317 AV=HA+HA2 

330 FOR 1=1 TO AV 
332 IF CP1<=3 THEN 400 
335 C0UL=0 : GOSUB 2000 
340 CPl=CPl-3 
350 C0UL=1 : GOSUB 2000 
355 NCA=NCA+1 

357 FOR Z=1 TO 30 : NEXT Z 
370 NEXT I 

380 PLAY "DO 1 :GOTO 250 
400 DIF=AV-I+1 
410 FOR 1=1 TO DIF 
412 IF LP1<=2 THEN 500 
420 C0UL=0 : GOSUB 2000 
430 LPl=LPl-2 

440 C0UL=1 : GOSUB 2000 

441 NCA=NCA+1 

442 FOR Z=1 TO 30 : NEXT Z 
460 NEXT I 

470 PLAY"DODO*: GOTO 250 
480 DIF=HA+HA2 : GOTO 410 
500 DAF=DIF-I+1 
510 FOR 1=1 TO DAF 
512 IF CPI>=33 THEN 600 
520 C0UL=O : GOSUB 2000 
530 CPl=CPl+3 
540 C0UL=1 : GOSUB 2000' 

542 NCA=NCA+1 

545 FOR Z=1 TO 30 : NEXT Z 
560 NEXT I 

570 PLAY *SISI* : GOTO 250 
580 DAF=HA+HA2 : GOTO 510 
600 DUF=DAF-I+1 
610 FOR 1=1 TO DUF 
612 IF LP1>=22 THEN 800 
620 C0UL=0 : GOSUB 2000 
630 LPl=LPl+2 
640 C0UL=1: GOSUB 2000 
645 NCA=NCA+1 

650 FOR Z=1 TO 30 : NEXT Z 
695 NEXT I 

700 PLAY'SIDO*: GOTO 250 
710 DUF=HA+HA2 : GOTO 610 
800 AV=DUF-I+1: GOT0330 
1310 ’ 
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1311 1F LP2=22 THEN 1317 

1312 1F CP2=4 THEN 1480 

1313 IF LP2=2 THEN 1580 

1314 IF CP2=34 THEN 1710 
1317 AV=HA+HA2 

1330 FOR 1=1 TO AV 

1332 IF CP2<=4 THEN 1400 

1335 CQUL2=0 : GOSUB 2100 

1340 CP2=CP2-3 

1350 C0UL2=3 : GOSUB 2100 

1355 NCA2=NCA2+1 

1357 FOR Z=1 TO 30 : NEXT Z 

1370 NEXT I 

1380 PLAY ■SI 1 : GOTO 250 
1400 DIF=AV-I+1 
1410 FOR 1=1 TO DIF 
1412 IF LP2<=2 THEN 1500 
1420 CQUL2=0 : GOSUB 2100 
1430 LP2=LP2-2 

1440 CQUL2=3 : GOSUB 2100 

1441 NCA2=NCA2+1 

1442 FOR Z=1 TO 30 : NEXT Z 
1460 NEXT I 

1470 PLAY'MI": GOTO 250 

1480 DIF=HA+HA2 ! GOTO 1410 

1500 DAF=DIF-I+1 

1510 FOR 1=1 TO DAF 

1512 IF CP2>=33 THEN 1600 

1520 C0UL2=0 : GOSUB 2100 

1530 CP2=CP2+3 

1540 C0UL2=3 : GOSUB 2100 

1542 NCA2=NCA2+1 

1545 FOR Z=1 TO 30 : NEXT Z 

1560 NEXT I 

1570 PLAY’SO": GOTO 250 

1580 DAF=HA+HA2 : GOTO 1510 

1600 DUF=DAF-I+1 

1610 FOR 1=1 TO DUF 

1612 IF LP2>=22 THEN 1800 

1620 C0UL2=0 : GOSUB 2100 

1630 LP2=LP2+2 

1640 C0UL2=3: 60SUB 2100 

1645 NCA2=NCA2+1 

1650 FOR Z=1 TO 30 : NEXT Z 

1695 NEXT I 

1700 PLAY ‘LA 1 ! GOTO 250 
1710 DUF=HA+HA2 : GOTO 1610 
1800 AV=DUF-I+1:GOT01330 
2000 ’ 

2003 ’ PIONS 
2005 ’ 

2010 LOCATE CP1,LP1,0: COLOR COUL : ATTR 
B 0,0 : PRINT GR$(0) : RETURN 
2100 LOCATE CP2.LP2.0: COLOR COUL2 : ATT 
RB 0,0 : PRINT 6R$(0): RETURN 
2490 ’ 

2494 ’ DES 
2497 ’ 

2500 HAt=INKEY$:BOX( 11,7) - ( 17,12) ' »', 6 
2510 B0X(19,7)-(25,12)*t‘,6 
2520 LOCATE 11,6 : PR INT'DE No T: LOCAT 
E 19,6 : PRINT 'DE NO 2" : LOCATE 6,15 : 
COLOR 1 : PRINT '-POUR ARRETER LES DES" 


: LOCATE 6,16 : PRINT'APPUIE SUR ESPACE* 
2530 HA=INT(RND*6)+1 : HA2=INT!RND»6)+1 
2540 LOCATE 13,10 : COLOR 4 : PRINT HA ; 
LOCATE 21,10 : PRINT HA2 
2550 HA$=INKEY$ 

2560 IF HA$=* * THEN LOCATE 6,15 : PRINT 
* *: LOCATE 6,16 : P 

RI NT * *: RETURN 

2570 GOTO. 2530 
5000 ’ 

5003 ’ CASE ADRANDIE 
5005 ’ 

5010 B0XF(41,25)-(248,1671,-1 
5020 BOX(7,4)-(29,1I)***,1 
5025 IF VA=1 THEN 5028 ELSE 5048 
5028 IF NCA>40 THEN NCA=NCA-40 : AR6E=AR 
GE+20000: GOTO 5028 

5030 LOCATE 8,6 : COLOR 6 :ATTRBO,1:PRIN 
T CAS$(NCA):IF CAS2t(NCA)=*l.1* THEN5032 

5031 LOCATE 12,8:ATTRBO,0: COLOR 2 : PRIX 
T CAS2$(NCA)* F*: IF LEFT*(CAS*(NCA),4)= 
■GARE* THEN G1A=2 ELSE G1A=0:COLOR 3 : L 
OCATE 11,10 : PRINT “FAMILLE *;FA$(NCA): 
IF LEFT*(CAS*(NCA),3)=*Cie* THEN C3=2 EL 
SE C3=0 

5032 I=NCA:GOSUB 32000: ATTRB 0,0 : IF C 
AS2*(NCA)=*1.1 * THEN GOSUB 22000 : 60T0 
5036 

5033 GOSUB 29000:G0SUB55000:IF CAS2*(NCA 
)=T THEN 5200: GOTO 5036 

5034 IF CAS2*(NCA)=*2" THEN 5250:60T0 50 
36 

5035 GOSUB 5100 

5036 FOR 1=1 TO 500 : NEXT I : B0XF(41,2 
5)-(248,167),-l 

5040 RETURN 

5048 IF NCA2>40 THEN NCA2=NCA2-40 : ARGE 
2=ARGE2+20ÛÛ0: GOTO 5048 

5050 LOCATE 8,6 : COLOR 6:ATTRB 0,1:PRIN 
T CAS*(NCA2) : IF CAS2*(NCA2)=*1.1’ THEN 

5052 

5051 LOCATE 12,8 :ATTRB 0,0:CDL0R 2:PRI 
NT CAS2*(NCA2)* F*:IF LEFT*(CAS*(NCA2),4 
)=*GARE* THEN 61A=2ELSE G1A=0:C0L0R 3 :L 
OCATE 11,10 : PRINT 'FAMILLE ';FA*(NCA2) 
:IF LEFT*(CAS*(NCA2),3)=*Cie* THEN C3=2 
ELSE C3=0 

5052 I=NCA2:GOSUB 32000:ATTRB 0,0:IF CAS 
2*(NCA2)=*1.1‘ THEN GOSUB 22000 : GOTO 5 
056 

5053 GOSUB 29050:60SUB 55100:IF CAS2t(NC 
A2)=*2* THEN 5200: GOTO 5056 

5054 IF CAS2*(NCA2) =*" 1 “ THEN 5250: GOTO 
5056 

5055 GOSUB 5100 

5056 FOR 1=1 TO 500 : NEXT I : B0XF(41,2 
51-1248,167),-1 

5060 RETURN 
5100 ’ 

5103 ’ ACHETER TERRAIN 
5105 ’ 

5110 BOXF(6,12)-(29,15)* ' : LOCATE 7,13 
: COLOR 0,2 : PRINT *VEUX-TU ACHETER ?* 


5120 D*=INKEY* 

5130 IF D*='0* THEN 5150 

5140 IF D*='N‘ THEN COLOR 2.0:GOSUB 6000 

:RETURN 

5145 GOTO 5120 

5150 IF VA=1 THEN 5160 ELSE 5180 
5160 AR6E=ARGE-VAL(CAS2*(NCA)):CAS2*(NCA 
)="1‘: IF G1 A=2 THEN GA1=6A1+1 
5163 IF C3=2 THEN C31=C31+1 
5170 COLOR 2,0:GOSUB 6000;RETURN 
5180 AR6E2=AR6E2-VAL(CAS2*(NCA2)):CAS2*( 
NCA2)=*2*:IF G1A=2 THEN GA2=GA2+1 
5183 IF C3=2 THEN C32=C32+1 
5190 COLOR 2,0:GOSUB 6000:RETURN 
5200 LOCATE 12,7 :PRINT * ': LOCATE 

6,13 : COLOR 1:PRINT 'CE TERRAIN T’ *:L0 
CATE 6,14:PRINT 'APPARTIENT*:FOR 1=1 TO 
850:NEXT I : GOTO 6000 
5250 LOCATE 12.7:PRINT" ':LOCATE 6,1 
3 : COLOR 1 : PRINT 'CE TERRAIN APPARTIE 
NT *: LOCATE 6,14 : PRINT 'A TON ADVERSA 
IRE ' 

5260 IF VA=1 THEN GOSUB 31000: GOSUB 5000 
0: ARGE=ARGE-TER (NCA) : ARGE2=ARGE2+TER (NCA 
) ELSE 60SUB31500:GOSUB 50500:AR6E2=AR6E 
2-TER(NCA2) : ARGE=ARGE+TER(NCA2) 

5270 FOR 1=1 TO 850:NEXT I:GOT06000 
5990 ’ 

5992 ’ VOIR PROPRIETES 
5997 ’ 

6000 BOX(48,135)-(248,1621,1 :LINE(48,14 
5)-(248,145),1 : LINE (18,17)-(18,19)'*', 
1 

6005 1F AR6E<=0 THEN PE*=** JAUNE** : GOTO 40 
000 

6006 IF AR6E2<=0 THEN PE*='ROUGE': GOTO 4 
0000 

6010 L0CATE9,17: COLOR 6 : PRINT "JOUEUR 
1':LOCATE 21,17: PRINT 'JOUEUR 2':L0CAT 
E 7,19:COLOR 7: PRINT ARGE'F' :LOCATE 19 
,19 : PRINT AR6E2'F' 

6030 BOXF(50,25)-(248,133),-1:COLOR 3,0 
:LOCATE 8,5 :PRINT'CHOISIS ENTRE* : LO 
CATE 7,7 : PRINT *(V)oir propriétés": LO 
CATE 7,8 : PRINT '(C)onstruire' : LOCATE 
7,9 : PRINT '(H)ypothequer / vendre':LO 
CATE 7,10:PRINT*(T)ransaction':LOCATE 7, 
11 

6035 PRINT'(A)utre joueur' 

6050 A*=INPUT*(1) 

6060 IF A$=*A* THEN BOXF (41,25)-<248,16 
7),-l : RETURN 

6070 IF A$=*V" AND VA=1 THEN 6200 
6080 IF At='V* AND VA=0 THEN 6260 
6082 IF A*='C THEN 21000 
6085 IF A$='H* THEN 28000 
6087 IF A$='T* THEN 30000 
6090 GOTO 6050 
6200 ’ 

6205 K0=6 : 0K=4 : BOXF(41,25)-(248,162) 

6210 FOR PR=1 TO 40 

6220 IF CAS2*(PR)=*1' THEN GOSUB 6300 
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6230 NEXT PR 

6250 80XF(41,25)-(246,167),-l : 60T0 600 
0 

6260 K0=6 : 0K=4 : BÜXF(41,25)-(2*8,162) 
.-1 

6265 FOR PR=1 TO 40 

6270 IF CAS2»(PR)=*2* THEN 60SUB 6300 

6280 NEXT PR 

6290 BOXF(41,25)-(248,1671,-1 : BOTO 600 
0 

6300 ’ 

6305 BOXF(KO,OKI -(KO+22,QK+61’**,3 
6310 LOCfiTE KO+1,OK+3 ! C0L0R1 :PRINT Cft 
S*(PR) 

6320 IF ÛK=4 THEN 0K=12 ELSE 0K=4 
6330 FOR 1=1 TO 100 : NEXT I : RETURN 
15000 ! 

15003 ’ PRESENTATION 
15005 ! 

15010 CLS : K=45 

15030 A=1550 : B=1550 

15040 PI=6.7 

15050 PSET (160,551,2 

15060 FOR T=0 TO 21PI+0.5 STEP 0.1 

15070 X=K»SIN(A*T) 

15080 Y=KtCOS(BIT) 

15090 C=X+160 
15100 L=100-Y 
15110 LINE -(C,L) ,2 
15120 NEXT T 

15130 LOCATE 12,13 : COLOR 1: ATTRB 1,1 
: PRINT 'MONOPOLY* 

15150 ATTRB 0,0: LOCATE 3,22 : PRINT "PAR 
0.ROBLIN* 

15160 FOR 1=1 TO 1300 : NEXT I:RETURN 
20000 ’ 

20003 ’ SUITE TABLEAU 
20005 ’ 

20010 DIM TER1(40),TER(40),FA4(40),CHAN* 
(17), CHAN (17), COMM* (17), COHH (17) 

20020 TER1(2)=200 

20021 TER1(41=400 

20022 TER1(71=600 

20023 TER1(91=600 

20024 TER1(101=800 

20025 TER1(121=1000 

20026 TER1(141=1000 

20027 TER1(151=1200 

20028 TER1(171=1400 

20030 TER1(191=1400 

20031 TER1(201=1600 

20032 TER1(221=1800 

20033 TER1(241=1800 

20034 TER 1(251=2000 

20035 TER1(271=2200 

20036 TER1(281=2200 

20037 TER1(301=2400 

20038 TER1(321=2600 

20039 TER1(331=2600 

20040 TER1(351=2800 

20041 TER1(381=3500 

20042 TER 1(401=5000 

20043 FA$(2)='A’ 


20044 FA*(4)=*A* 

20045 FA$(7)="8‘ 

20046 FA$(9)= , B 1 

20047 FAt(10)=*8* 

20048 FA*(12)=*C* 

20049 FA$(14)=*C’ 

20050 FA$(15)="C" 

20051 FA*il7)=*D* 

20052 FA$(19)="D* 

20053 FAt(20)=*D* 

20054 FAI(22)= , E* 

20055 FA»(24)=*E* 

20056 FA*(25)=*E* 

20057 FA*(27)=*F* 

20058 FA4(28)=*F* 

20059 FA4(30)=*F* 

20060 FAI(32)=*G" 

20061 FA*(33)="6" 

20062 FA*(35)=*G* 

20063 FA*(38)=‘H* 

20064 FA*(40)=*H* 

20066 FOR 1=1 TO 40 

20067 TER(IMER 1(1) 

20068 NEXT I 

20100 CHAN*(11=* AVANCER DEPART*:CHAN(11 = 
1 

20102 CHAN*(21=* AVANCER HENRI-MARTIN*:CH 
AN(21=25 

20103 CHAN*(3)=*PRIX MOTS CROISES*:CHAN( 
31=10000 

20104 CHAN*(4)=*LIBERES PRISON *:CHAN(4) 
=5000 

20105 CHAN*(5)=*BANQUE :■:CHAN(51=5000 

20106 CHAN*(6)=*EXES DE VITESSE*:CHAN(6) 
=-1500 

20107 CHAN*(7)=*FRAIS DE SCOLARITE*:CHAN 
(7)=-15000 

20108 CHAN» (8) PREPARATIONS* : CHAN (B) =250 
00 

20109 CHAN»(9)=*AVANCEZ Bv LA VILLETTE*: 
CHAN(91=12 

20110 CHAN»(10)=*IVRESSE*:CHAN(10) =-2000 

20111 CHAN» (11) PREPARATION* : CHAN (111=40 
00 

20112 CHAN»(12)=* RECULER 3 CASES*:CHAN(1 
21=3 

20113 CHAN»(13)=*IMMEUBLE / PRET*:CHAN(1 
31=15000 

20114 CHAN»(14)=*PRISON !":CHAN(14)=11 

20115 CHAN»(15)=*AVANCER GARE DE LYON*:C 
HAN(151=16 

20116 CHAN»(16)=*AVANCER RUE DE LA PAIX* 
: CHAN(16)=40 

20151 COMM»(11 = * CONTRIBUTION * :COHH(11=20 
00 

20152 COMM»(21= * HOPITAL * :COMM(21 =-10000 

20153 C0MMt(3)=*ERREUR BANQUE*:COHH(3)=2 
0000 

20154 COMM»(4)=*POLICE ASSURANCE*:COMM(4 
1=-5000 

20155 COMM*(5)=* RETOURNER BELLV1LLE*: COM 
M(51=2 

20156 COMM*(6)=*INTERET SUR UN EMPRUN*:C 


OHM(6)=2500 

20157 COMM*(7)=*PRISON !*:COHM(71=11 

20158 COHH*(81=* ANNI VERSAIRE * :COMM(81=10 
00 

20159 COMM»(9)="HERITA6E* : COMM(9) =10000 

20160 COMM»(10)=*AMENDE ou CHANCE*:COMM( 
101=1000 

20161 COMM*(11)=*LIBERE PRISON*:COMM(111 


=5000 

20162 COMM*(12)="AVANCER DEPART*:COMM(12 
1=1 

20163 COMM*(13)=*PRIX DE BEAUTE*:COMM(13 
1=1000 

20164 COMM»(14)=*REVENU ANNUEL*:COMM(14) 
=10000 

20165 COMM*(15)=*VENTE STOCK*:COMM(15)=5 
000 

20166 COMM*(16)=’MEDECIN*:COMM(16)=-5000 
20300 RETURN 

20490 ’ 

20494 ’ CONSTRUIRE 
20497 ’ 

21000 B0XF(41,25)-!248,1671,-1 : N=0 : I 
=1 : IF VA=1 THEN X1*=T ELSE Xl*=*2* 
21002 X*=*A* : Xl=2 : GOSUB 21020 

21004 X*=*B* : Xl=3 : GOSUB 21020 

21006 X»=*C* : Xl=3 : GOSUB 21020 

21008 Xt=*D" : Xl=3 : GOSUB 21020 

21010 Xt=*E* : Xl=3 : GOSUB 21020 

21012 X»=*F* : Xl=3 : GOSUB 21020 

21014 X»=*G* : Xl=3 : GOSUB 21020 

21016 X»=*H* : Xl=2 : GOSUB 21020 

21018 BOXF(41,25)-(248,167),-1 : GOTO 6000 
21020 FOR G=1 TO 40 

21030 IF CAS2*(G)=Xlt AND FAt(6)=X* THEN 
N=N+1 

21040 IF N=X1 THEN 21100 
21050 NEXT G 

21060 N=0:BOXF(41,25)-(248,167).-1:RETUR 
N 

21100 ’ 

21110 LOCATE 6,10 : COLOR 6 : PRINT *TU 
PEUX CONSTRUIRE*: LOCATE 6,11:PRINT *DAN 
S LA FAMILLE *X» 

21112 LOCATE 6,12:PRINT 'VEUX-TU ?*:R*=I 
NPUTt(l) 

21114 IF Rt=*0* THEN 21200 
21120 N=0 : GOTO 21050 
21200 ’ 

21210 FOR 1=1 TO 40 

21220 IF FA*(I1=X* THEN 21300 

21230 NEXT I 

21240 B0XFX41,25)-(248, 167),-1:60TD 2105 
0 

21300 LOCATE 6,14:C0L0R 1 : PRINT ’VEUX- 
TU CONSTRUIRE*:LOCATE 6,15:PRINT *A "CAS 
*(I):R*=INPUTt(l):COLOR 2 
21310 IF R*=*0* THEN 21400 
21320 GOTO 21490 

21400 LOCATE 6,16:PRINT “COMBIEN DE MAIS 
ON ?":Rt=IHPUTt(l) 
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21402 IF VALCR$) >5 OR VAL(R»)<1 THEN 214 
00 

21405 IF Kll AND I>1 THEN PH=5000 

21410 IF I<21 AND I>11 THEN PM=10000 

21415 1F I<31 AND I>21 THEN PH=15000 

21418 IF I<41 AND I>31 THEN PH=20000 

21420 FOR 14=1 TO VAL(R*) 

21430 IF VA=1 THEN AR6E=ARGE-PN ELSE ARG 
E2=ARGE2-PH 

21445 IF TER(I)=TER1(I) THEN TER(I)=TER1 
(1)45 : GOTO 21480 

21450 IF TER(I)=TER1<I)*5 THEN TER(I)=TE 
RI(I)t15:GOTO 21480 

21455 IF TER(I)=TER1(I)*15 THEN TER(I)=T 

ER1(I)*45:GOTO 21480 

21460 IF TER(I)=TER1(I)*45 THEN TER!I)=T 

ER1(I)I62:GOTO 21480 

21465 IF TER(I)=TER1(I)*62 THEN TER(I)=T 

ER1(1)475 : GOTO 21480 

21470 IF TER(I)=TER1(I)475 THEN TER(I)=T 

ERKD475 

21480 NEXT 14 

21490 LOCATE 6,16:PRINT' 

■ :LOCATE 6,15 :PRINT * 

■ : GOTO 21230 

22000 GOSUB 26000: IF VA=1 AND NCA=31 OR 
VA=0 AND NCA2=31 THEN GOTO 25000 ’ 

44 CHANCE / COMMUNAUTE 444 
22002 IF VA=1 THEN 22004 ELSE 22006 

22004 IF NCA=8 OR NCA=23 OR NCA=37 THEN 
C8=INT(RND416)+1 :TE$=CHAN$(C8):TE=CHAN(C 
8):60T0 22010 

22005 IF NCA=3 OR NCA=18 OR NCA=34 THEN 
C8=INT(RND416)+1 :TE$=COMM*!C8):TE=COMM! 
C8): GOTO 22010 ELSE RETURN 

22006 IF NCA2=8 OR NCA2=23 OR NCA2=37 TH 
EN CB=INT(RND416)+1: TE$=CHAN$(C8):TE=CH 
AN(C8): GOTO 22010 

22007 IF NCA2=3 OR NCA2=18 OR NCA2=34 TH 
EN C8=INT(RND416)+1 :TE$=C0MM*(C8):TE=CO 
MM(C8): GOTO 22010 ELSE RETURN 

22010 BOXF (41,25)-(248,167),-1 
22020 GOSUB 22500 : FOR 1=1 TO 500 : NEX 
T I 
22100 

22110 TR»=LEFT»!TE»,5) 

22120 IF TR»="AVANC THEN 22130 ELSE 221 
50 

22130 IF VA=1 THEN 22132 ELSE 22140 
22132 IF TE<NCA THEN HA=(40-(NCA-TE))/2: 
HA2=HA : GOTO 311 

22134 IF TE>NCA THEN HA=(TE-NCA)/2 :HA2= 
HA:GOTO 311 

22135 IF NCA=TE THEN RETURN 

22140 IF TE<NCA2 THEN HA=(40-(NCA2-TE))/ 
2:HA2=HA : 60T0 1311 

22143 IF TE>NCA2 THEN HA=(TE-NCA2)/2 :HA 
2=HA:GOTO 1311 

22145 IF NCA2=TE THEN RETURN 

22150 IF TR$="RETOU’ THEN 22160 ELSE 221 

90 

22160 IF VA=1 THEN 22170 ELSE 22180 


22170 IF TE=NCA THEN RETURN 

22174 IF TE<NCA THEN HA=(40-(NCA-TE))/2: 

HA2=HA :ARGE=ARGE-20000:GOTO 311 

22176 IF TE>NCA THEN HA=(TE-NCA)/2:HA2=H 

A: GOTO 311 

22180 IF TE=NCA2 THEN RETURN 
22184 IF TE<NCA2 THEN HA=(40-(NCA2-TE))/ 
2:HA2=HA :ARGE2=ARGE2-20000:60TD 1311 
22186 IF TE>NCA2 THEN HA=!TE-NCA2)/2:HA2 
=HA: GOTO 1311 

22190 IF TR»='REPAR" THEN 22200 ELSE 222 
50 

22200 GOSUB 27000 :RETURN 

22250 IF TR$='PRISO' THEN 22260 ELSE 223 

00 

22260 GOTO 25000 

22300 IF TR$=’ANNIV" THEN 22310 ELSE 223 
30 

22310 IF VA=1 THEN AR6E=AR6E+1000 :ARGE2 
=ARGE2-1000:RETURN ELSE ARGE2=ARGE2+1000 
:AR6E=AR6E-1000:RETURN 
22330 IF TR»='AMEND" THEN 22340 ELSE 223 
60 

22340 RI»=INPUT»(1) 

22345 IF RI»='P' AND VA=1 THEN AR6E=ARGE 
-1000:GOTO 22355 

22348 IF RI«=*P' AND VA=0 THEN AR6E2=ARG 
E2-1000:GOTO 22355 

22350 IF RI*='C' THEN C8=INT(RND416)+1 : T 
E»=CHAN$(C8):TE=CHAN(C8): GOTO 22010 
22355 RETURN 

22360 IF TR»=*RECUL' THEN 22370 ELSE 224 
00 

22370 IF VA=1 THEN 22372 ELSE 22382 
22372 IF NCA>3 THEN ARGE=AR6E-20000 
22375 HA=37/2:HA2=HA:60T0 311 
22382 IF NCA2>3 THEN ARGE2=AR6E2-20000 
22385 HA=37/2:HA2=HA:GOTO 1311 
22400 IF VA=1 THEN ARGE=AR6E+TE :RETURN 
ELSE ARGE2=ARGE2+TE:RETURN 
22500 ’ 

22510 ’ PRESENTATION CHANCE/COMMU. 

22520 ’ 

22530 B0X(7,4)-(29,10)*?",1 
22535 LOCATE 8,6 :ATTRB 0,1 : COLOR 3:PR 
INT’CHANCE/COHHUNAUTE’; ATTRB 0,0 : COLO 
R 2 

22540 TRt=LEFT*(TE*,5) 

22550 IF TR$=’AVANC‘ THEN LOCATE 12,7:PR 
INT 'AVANCER A’:LOCATE 8,8 : PRINT CAS*( 
TE): RETURN 

22560 IF TR»='RETOU' THEN LOCATE 12,7 : P 
RINT 'RECULER A":LOCATE 8,8:PRINTCAS*(TE 
): RETURN 

22570 IF TR$='REPAR" THEN LOCATE 11,7:PR 
INT 'REPARATIONS':RETURN 
22580 IF TR$='PRISO'THEN LOCATE 11,7:PRI 
NT 'PRISON*: RETURN 

22590 IF TR»='ANNIV THEN L0CATE8,7 :PRI 
NT'ANNIVERSAIRE CHAQUE':LOCATE 8,8 :PRIN 
T'DOIT VOUS DONNER':LOCATE 8,9 :PRINT'10 
00 F': RETURN 


22600 IF TR$=‘AMENDE" THEN LOCATE 8,7 : 

PRINT "(P)AYEZ 1000 OU TIREZ':LOCATE 8,8 

:PRINT'UNE (C)ARTE CHANCE':LOCATE 8,9:PR 

INT 'tapez P ou C:RETURN 

22610 IF TR$='RECUL* THEN LOCATE B,7:PRI 

NT 'RECULER DE 3 CASES':RETURN 

22620 IF TE>0 THEN LOCATE 8,7 : PRINT TE 

4:LOCATE 8,8:PRINT 'RECEVEZ '; TE 

22630 IF TECO THEN LOCATE 8,7 :PRINT TE» 

:LOCATE 8,8 : PRINT 'PAYEZ '; ABS(TE) 
22640 RETURN 
25000 ’ 

25003 ’ PRISON 
25005 ’ 

25010 IF VA=1 THEN 25020 ELSE 25050 
25020 NPR=0 : IF NCA>11 THEN HA=(40-(NC(f 
-ll))/2:HA2=HA:ARGE=ARGE-20000: PRI=2:GO 
TO 311 

25030 IF NCA<11 THEN HA=(ll-NCA)/2 :HA2= 
HA:PRI=2:GOTO 311 

25050 NPR2=0: IF NCA2>11 THEN HA=(40-(NC 
A2-11))/2:HA2=HA:AR6E2=ARGE2-20000:PRI2= 
2:GOTO 1311 

25060 IF NCA2<11 THEN HA=(ll-NCA2)/2 : HA 

2=HA: PRI2=2:GOTO 1311 

25100 PLAY'DOSIRE': END 

25500 IF VA=0 THEN AR6E=ARGE-5000:PRI=0: 

RETURN 

25510 IF VA=1 THEN ARGE2=ARGE2-5000:PRI2 
=0:RETURN 
26000 ’ 

26003 ’ PARC GRATUIT 
26005 ’ 

26010 IF VA=1 AND NCA=39 THEN 26050 
26020 IF VA=0 AND NCA2=39 THEN 26100 
26025 IF VA=1 AND NCA=5 THEN 26150 
26030 IF VA=0 AND NCA2=5 THEN 26200 
26035 IF VA=1 AND NCA=21 THEN 26250 
26040 IF VA=0 AND NCA2=21 THEN 26300 ELS 
E RETURN 

26050 AR6E=ARGE-10000:P6=PG+10000: RETURN 
26100 ARGE2=ARGE2-10000:P6=PG+10000:RETU 
RN 

26150 ARGE=ARGE-20000: PG=PG+20000: RETURN 
26200 ARGE2=AR6E2-20000 : PG=P6+20000:RE 
TURN 

26250 AR6E=ARGE+PG:P6=0:RETURN 
26300 ARGE2=AR6E2+P6:PG=0:RETURN 
27000 ’ 

27003 ’ REPARATIONS 
27005 ’ 

27010 LOCATE 6,11 :COLOR 1:ATTRB 0,0 :PR 
INT "OPPERATION EN COURS' 

27015 IF VA=1 THEN Jt="l' ELSE J*='2' 

27020 FOR 1=1 TO 40 

27030 IF CAS2»(I)=J» AND TER(I)OTERKI) 

THEN 27200 

27040 NEXT I 

27050 TRE=NRE*TE 

27060 IF VA=1 THEN AR6E=AR6E-TRE ELSE AR 

GE2=ARGE2-TRE 

27070 RETURN 
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27200 IF TER ( I ) =TER1 ( I ) <5 THEN NRE=NRE+1 
27210 IF TER(I)=TER1(11*15 THEN NRE=NRE+ 
2 

27220 IF TER (IMER1 (11*45 THEN NRE=NRE+ 
3 

27230 IF TER(I)=TER1(11*62.5 THEN NRE=NR 
E+4 

27240 IF TER(I)=TER1(11*75 THEN NRE=NRE+ 
5 

27250 GOTO 27040 
28000 ’ 

28003 ’ HYPOTHEQUES 
28005 ’ 

28010 BOXF(41,25)-(248,1671,-1 

28020 LOCATE 6,6:CQL0R 1:PRINT *VEUX-TU 
: ” !LOCATE 6,7:PRINT * (H) YPOTHEQUER ":LOC 
ATE 6,8:PRINT '(V)ENDRE DES MAISONS":R*= 
INPUT$(11 :L0CATE6,9:PRINT R$ 

28030 IF R*="H" THEN 28100 
28040 IF R*="V* THEN 28500 ELSE 28020 
28100 LOCATE 7.11 : PRINT "DANS QUELLE F 
AMILLE ?":R*=INPUTt(l) 

28110 IF ASC (RO <65 OR ASC(RO >72 THEN 2 
8100 

28115 IF VA=1 THEN DQ*="1" ELSE DQ*="2" 
28120 FOR 1=1 TO 40 

28130 1F FAt(I)=R* AND CAS2t!I!=DQ* AND 

TER(11=TER1 ( 11 THEN 28150 

28140 NEXT I 

28145 GOTO 6000 

28150 B0XF(41,25)-(248,1671,-1 

28160 LOCATE 6.10 :COLOR 3: PRINT "VEUX- 

TU HYPOTHEQUER":LOCATE 6,11:PRINT CAS*(I 

):S$=INPUT*(1) 

28170 IF S*="0" THEN 28180 ELSE 28140 
28180 IF R$="A" OR R$="B" THEN FS=4000 

28182 IF R*="C" OR R*="D" THEN FS=8000 

28184 IF R*="E" OR R*="F" THEN FS=12000 

28186 IF R$="6" OR R*="H" THEN FS=18000 

28200 IF VA=I THEN ARGE=ARGE+FS:CAS2*(I1 
=“3" ELSE ARGE2=AR6E2+FS:CAS2*(I)="4" 
28210 GOTO 28140 

28500 LOACTE 7.11:PRINT "DANS QUELLE FAM 
ILLE ?“:R*=INPUT$(11 

28510 IF ASC(R$)<65 OR ASC(R*)>72 THEN 2 
8500 

28515 IF VA=1 THEN DQ*="1" ELSE DQ*="2* 
28520 FOR 1=1 TO 40 

28530 IF FA*(I)=Rt AND TER(11OTER1 (I) A 
ND CAS2*(I)=D0t THEN 28550 
28540 NEXT I 
28545 RETURN 

28550 BOXF(41,25)-(248, 1671,-1 
28560 LOCATE 6.10 :COLOR 3: PRINT "VEUX- 
TU VENDRE A":LOCATE 6,UîPRINT CAS*(I):R 
$=INPUT*(1) 

28570 IF R*="0" THEN 28600 ELSE 28540 
28600 LOCATE 6.13 : INPUT "COMBIEN DE MA 
ISONS ?";R* 

28610 IF I>31 THEN PIT=VAL(R*)*20:GOTO 2 
8700 

28612 IF I>21 THEN PIT=VAL(R*l*15:GOTO 2 


8700 

28614 IF I>11 THEN PIT=VAL(R*1*10:60TD 2 
8700 

28616 IF I>1 THEN PIT=VAL(R*l*5:GOTO 287 
00 

28700 IF VA=1 THEN ARGE=ARGE+PIT ELSE AR 

GE2=ARGE2+PIT 

28710 FOR J=1 TO VAL(R*> 

28712 IF TER(I1=TER1(11*5 THEN TER(I1=TE 
RHI) 

28714 IF TER(I)=TER1(I)*15 THEN TER!I)=T 
ER1(11*5 

28716 IF TER(I)=TER1(11*45 THEN TER(I)=T 
ER1(11*15 

28718 IF TER(I1=TER1(I1*62.5 THEN TER(I) 
=TER1(11*45 

28720 IF TER!I)=TER1(11*75 THEN TER!I)=T 

ER1(11*68.5 

28730 NEXT J 

28750 60T0 28540 

29000 ’ 

■29005 IF CAS2*(NCA)="3" THEN 29010 ELSE 
RETURN 

29010 LOCATE 12.7:PRINT " ":LOCATE 

6,13:COLOR 1:PRINT "VEUX TU RACHETER LE 
"iLOCATE 6,14:PRINT"TERRAIN ? (0/N)":Rt= 
INPUTt(l) 

29015 IF R*="N"THEN 5036 

29017 IF R*="0" THEN 29020 ELSE 29010 

29020 ECA=NCA: GOSUB 29200 

29025 AR6E=ARGE-FS:CAS2$(NCA)="1":60TO 5 

036 

29050 IF CAS2t(NCA2)="4" THEN 29060 ELSE 
RETURN 

29060 LOCATE 12,7:PRINT " ":LOCATE 

6,13:COLOR 1:PRINT "VEUX TU RACHETER LE 
":LOCATE 6,14:PRINT’TERRAIN ? (Q/N)":R*= 
INPUT*(1) 

29065 IF R*="N*THEN 5056 

29067 IF R*="0" THEN 29080 ELSE 29060 

29080 ECA=NCA2: GOSUB 29200 

29085 AR6E2=ARGE2-FS:CAS2* (NCA2) ="2":60T 

0 5056 

29200 IF FA*(ECA)="A" OR FA*(NCA)="B" TH 
EN FS=4400 

29202 IF FA*(ECA)="C" OR FA*(NCA)="D" TH 
EN FS=8800 

29204 IF FA*(ECA)="E" OR FA*(NCA)="F" TH 
EN FS=13200 

29205 IF FA*(ECA)="6" OR FA*(NCA)="H" TH 
EN FS=19800 

29210 RETURN 
30000 ’ 

30002 ’ TRANSACTION 
30005 ’ 

30010 BOXF(41,25)-(248,1671,-1 
30020 L0CATE6,7:COLOR liPRINT "QUEL JOUE 
UR VEUT VENDRE?";:R*=INPUT*(11 :PRINT R* 
30030 IF R*OT AND R*<>"2" THEN 30020 
30040 LOCATE 6,U:PRINT" 
":L0CATE6,12:PRINT* 

":LOCATE 6,9:C0L0R 2 : PRINT"QUEL TERRAIN 


*:LOCATE 6.10:INPUT RN* 

30050 FOR 1=1 TO 40 

30060 IF CAS*(I)=RN* THEN 30100 

30070 NEXT I 

30080 LOCATE 9,11 : PRINT "ERREUR 1":F0R 
E=1 TO 1000:NEXT E:G0T030040 
30100 IF CAS2*(I)OR* THEN LOCATE 6,11:P 
RINT'CE TERRAIN N’APPARTIENT":LOCATE 6,1 
2:PRINT"PAS AU JOUEUR "R*:F0RE=1 TO 700: 
NEXT E.-GOTO 30040 

30105 IF TER(I)OTERKI) THEN LOCATE 6,1 
bPRINT'TERRAIN CONSTRUIT": FOR E=1 TO 70 
0 :NEXT E: 60T0 30040 
30110 LOCATE 6,12:COLOR 6:INPUT "A QUEL 
PRIX ";PT 

30120 IF R*=*l" THEN ARGE=AR6E+PT: ARGE2= 
ARGE2-PT : CAS2*(11="2" 

30130 IF R*="2" THEN ARGE2=AR6E2+PT:ARGE 
=ARGE-PT:CAS2$ 

30140 GOTO 6000 
31000 ’ 

31003 ’ GARES 
31005 ’ 

31010 IF NCA=6 OR NCA=16 OR NCA=26 OR NC 
A=36 THEN 31020 ELSE RETURN 
31020 TER(NCA)=2*(6A2-11*2500:RETURN 
31500 IF NCA2=6 OR NCA2=16 OR NCA2=26 OR 
NCA2=36 THEN 31520 ELSE RETURN 
31520 TER(NCA2)=2 A (GAI-11*2500:RETURN 
32000 ’ 

32010 IF TER(I1=TER1(I1 THEN RETURN 
32020 IF TER(I)=TER1(11*5 THEN SF=1 
32030 IF TER(I)=TER1(11*15 THEN SF=2 
32040 IF TER(I)=TER1(11*62.5 THEN SF=4 
32050 IF TER(I)=TER1(11*75 THEN SF=5 
32060 LOCATE 12,8:C0L0R 4:PRINT SF" MAIS 
ON(S)":RETURN 
40000 ’ 

40003 ’ PERDU 
40005 ’ 

40010 CLS :ATTRB 0,1:L0CATE 5,11:C0L0R2: 
PRINT "LE JOUEUR "PE$" A GAGNE" 

40020 PLAY" A3L1504D0REFADOFAS IDOREMI DORE 
FASIDORELAFAMIMIDO": END 
50000 ’ 

50003 ’ Cie 

50005 ’ 

50006 IF NCA=13 OR NCA=29 THEN 50010 ELS 
E RETURN 

50010 IF C32=2 THEN TER(NCA)=1000*(HA+HA 
2):RETURN 

50020 IF C32=l THEN TER(NCA)=400*(HA+HA2 
1:RETURN 

50500 IF NCA2=29 OR NCA2=13 THEN 50510 E 
LSE RETURN 

50510 IF C31=2 THEN TER(NCA2)=1000*(HA+H 
A2):RETURN 

50520 IF C31=l THEN TER(NCA2)=400*(HA+HA 
2):RETURN 

55000 IF CAS2*(NCA)="1* AND TER(NCA)=TER 
1(NCA) OR CAS2*(NCA)=*2* AND TER(NCA)=TE 
RI(NCA) THEN LOCATE 12.8:PRINT" * 
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55010 RETURN 

55100 IF CAS2*(NCA2)=“2“ AND TER(NCA2)=T 
ER1INCA2) OR CAS2$(NCA2)=■1 * AND TERINCA 

2)=TER1(NCA2) THEN LOCATE 12,8:PRINT' 

■ 

55110 RETURN 


=Qz C64 


B.C.S. 

Langage Basic 
Pour C64. 



Fabien Tison 

Quinze ans et demi, passionné incon¬ 
ditionnel d’informatique depuis trois 
ans. Fabien est responsable du maté¬ 
riel Commodore dans un club de mi¬ 
cro-informatique en Suisse, où il ré¬ 
side. Toutes ses heures de loisir pas¬ 
sent dans la programmation. 


J oli titre anglais (Basic Construction 
Set) pour un programme qui ravira 
les amateurs de secret. Ils 
pourront personnaliser leurs listings et 
les rendre incompréhensibles aux 
non-initiés. Vous allez en effet pouvoir 


redéfinir les commandes Basic du C64 
(67 commandes au total) et leur donner 
une nouvelle forme. Une condition 
cependant: la nouvelle forme doit 
impérativement avoir le même nombre 
de caractères que l’ancienne forme. 
Vous pouvez par exemple remplacer 
RETURN par RETOUR, mais pas par 
ARRIERE. Le nouveau mot Basic peut 
malgré tout être plus court si vous y 
ajoutez des points (RETURN peut 
devenir RET...). Vous créez donc ainsi 
tout un vocabulaire Basic que vous 
sauverez sur disquette et, après l’avoir 
rechargé, vous pourrez l’utiliser pour 


composer vos programmes. Pour la 
marche à suivre, référez-vous 
simplement au menu. 

Une autre partie du programme permet 
l’affichage des messages d’erreur en 
français, en allemand et, bien sûr, en 
anglais. 

NDLR: vous trouverez des fautes 
d’orthographe dans les textes affichés 
à l’écran, fautes dues à la jeunesse du 
programmeur. Nous vous laissons le 
soin de les corriger. 
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3BD=40960 

T049151 

■■ PCR 

ED,PEEKCOI=NENT : 

120 

PRIAT" 

:?*r-E DEFIAIS 

UN FI 

CHIEF 

? SEQUEA 

7Ü 

15 




TI EL 

II 





0 

IiTO 20000 




i 25 

PRIAT" 

MQUI S-APPEL 

LERA 1 

.; DT ; 

1 II 

R 

EADAT : L=L 

EN < AT > 



T -~i l~ 

j. 

PRINT" 

ÏIEAVIAG. . „ " 




F 

JRI=1TOL— 

.1 



:l 40 

OPEAS, 

8 ,8,"0 :"+DT+ 

11 .= S.. !-*-! ' 



B 

=ASCTMIDT 

CAT, I.. 1 

3 3 ^ F 

OKEAA,B 

144 

PRIAT# 

8 ,"DEBUT DES 

NOMS ' 

CAR T 

133 

HA=HA+1 • NE 

NT I 



145 

RESTOF. 

E = FORT =1T067 

READZT, NT. 

CT,V,B ^ 

P 

ÛKEfifl, ASC 

CRIGATT 

< AT, 

13> OR128 

st a 

3 -Z T : N 

T < T 3 =XT ^ CT TT 

> =CT : 

< J ;i 

' : B 7 > =B 


50 












































50 

FORV=0TDLEN < ZT -1 



RESSE" 





151 

D=PEEI< < V+VI' = I FD=32THEN 153 


313 

PR I NT " WM-IOM 

NOM 


DEC 


152 

RT=RT+ÇHRT<D> 


HE 






1 53 

N EN TV 


3 \ 4 

PR.INT" - 

— 

— 

— 

— 

1 62 

LU=LEN < R# y = VV=Pë:EK < V+U.J— 1 > ERT=LEFTT 

— 






eRT, 

LU-1>^RT=€RT+CHRT<VV-128 > 


CT 

PAKE 1,54 





1 

I FZT f T =RTTHENRT= " " HENTT 


320 

RESTORE ■' FORT =1 TC 

67'PEA 

OZT, 

CT, CT 

, V, B ■■ 

1 b 4 

IF T >=6 8 T H E N17 5 


ZT<T 

>—ZT'NTCTJ—NT : CT 

<T>=C* 

' Ve T 

J =V ' B 

eT>=B 

1 S€ 

PRINT#8,RTCHRT<13> 


330 

P ORE—V T.? T OB T : 

SD=PEE 

CCD 

' IFSD 

=32TH 

!i. b 

PRINT# 8 ,V<T >CHRt<13 > 


EN3S 

2 





1 68 

PRI NT#S, B< T >CHRT < .1.3 > 


331 

R N :$■ =:: F' IJ ÿ "l" U H R '£■ *•. b Lf 

'MENTE 




;} 70 

RT="":HENTT 



EW=LENe POT >:ERT= 

MIDTCP 

DT, E 

•J, 1 > ' 

ER=AS 

1 7 S 

PR !.. NT #8 .■ " FIH DES NOMS " CHRT < 131' 


CC EF 

■$■ :> ■■ WE=LEN<Z*<T> > 

'WE=WE 

-.1 



177 

P RI NT # 8 , "OK ! "CHRT':: 13> 



PGT=MIDTePOT, 1, W 

E > 




•| fl fi 

pnKEl ■55 = CLOSES 


334 

P 0 T=P 0 T+C H R T<ER- 

128 > 




1 99 

PR I HT " .s#rNREG IS T REM EH T TERMI NEE ! 

! " : 

i"^ 

IF Z T < T > = P 0 T T H E H 3 

50 




FORT 

~;i T04000 ' MENT ' GOTO 82 


9 3 ?~i 

GOSUB 500 = PRINT" 

"GDT.: 

' GOS 

JB 3 70 

' G DS U 

700 

ROSI IP 10008 •' DT= " " ' QQT= " " 


B 600; PR INT" "DOT.: =C 

PT=" " 




p fi 1 

REM*************************** 


337 

DDT=STRT < V < T > ■■ FFT-STR 

Tese 

T > > ' F 

FT=M I 

202 

REM* LECTURE DES NOMS BPSIC * 


DT<FFT,2,5> 





202 

RFM#**#*######**##*#####**#### 


yyy 

PRINTDDT 1 "-": FFT 





205 

PRINT"M»*1....ECTURE DES NOMS BASIC S 

IJ R 

339 

PR INT" "NT CT? 

" .: C Te T 

> 



DISC 

1 IF. " 


340 

IFOK=10 THEN343 





210 

PR INT" WrNTREZ UNE DISQUETTE DANS 

" : 

34.1 

GOTO 350 





PR II- 

T"MLE MONO-DISQUE 1541 SVP !" 


343 

PRINT#3, " "J GDT 

" "DG'T 


: DD T.: 

"-" .: F 

215 

sue 

F RINT"MM — NTREZ UN NOM SVP ="i 'Q=10 

: GO 

F T.: 1 

" .: NT < T> .; CTe' 

T 




60000'IFDT=""THEN100 


350 

POT=""=NEXTT'POK 

E.1.. 55 


POUR 


219 

PR INT 


360 

PR I NT " MMTRESSEZ 

UNE TO 

JC HE 

" ' PR I 

270 

PRINT"*»I'E SUIS EN TRAIN DE LIRE 

SUR 

NT" 

RETOURNER AU MENU."'CL 

DSE3 



DIS 

QUE " 


365 

GETDDT : IFDDT=""T 

HEN365 





PR I NT " «.F FI CH I ER SEQUENTI EL " DT 

- 11 

366 

GOTO 82 





II 



370 

F0RTV=1TOLEN<ZT< 

T > :> 




! -! 5 

P F: I NT" WH l_. 0 A DIN G. . . " : QQT— " " 


372 

NE-ASC<MIDT<POT, 

TV, 1 ;■ 



' RETU 

240 

OPENS.. 8 , 8 .. " @ ' " +DT+ " , S.. R " 


y 74 

IF X E > 9 6 T H E N 0 P T=C 

PT+CHR 

texE 

-128.:' 

242 

INPUTttS,POT 


RH 


'NENTT 




243 

IF P Ci T O " DEBUT DES NOMS " THEN246 


376 

0 P T=0 P T+C H R T < NE ■ 

T 1 



245 

INPUT# 8 ,QQT 


3 f < 

RE. TUR N 





246 

IFGQT-""THENPRINT"«HrRREUR DE LEC 

TUR 

380 

GOTO 82 





E ! ' 

: 0 L U b E b : U U T U d 7 9 


yy ? 

R tM************ * 

****** 

*#** 

***** 

**:**: 

247 

IFQQT="FIN DES NOMS"THEN CLOSES'G 

OTO 

399 

REM* ROUTINE POL 

E P R SS 

:ijt 

ER E 

N B RS 

IC * 
##** 

2 yt 

250 

I MP UT # 8 WW$ 


490 

GOSUB 700'PRINT' 

M»»!! RA 

CE A 

.1 BAS 

IC CO 

2 . 1 5 

I HP IJ T #8 .■ EET 


No i r 

'UCTION SET," 





2 5 b 

QQ=VAL < WH T > ' WW=V AL < EET 


405 

PR I NT " MVOUS POU'. 

‘EZ MAI 

NTENANT L 

TI L. IS 

260 

F OR TT = 1TOLÈN < QQT > ' L.L.T < TT =M I DT < QG 

T, T 

b. R L 

_Eb !l 





T, 1 ; 

' VV < TT > =ASC < LLT : < TT> > = NENT 


4 i 0 

PRINT"Ht-IOMS BAS! 

C QUE 

VOUS 

AVEZ 

DEF I 

9l~! ’l 

VV CTT-1>-ASC<LLT<TT-1>> = VV <TT-1> = 

VV < 

H 1 b, 






TT-1 

■+• 17 y 


41 b 

GOTO 497 





262 

FORRT=1TOLEN < QQT>=POKEQQ—1+RT, VV< 

R T J 

429 

GOSUB 10OOU 





^ NE> 

T = GOT0245 


421 

GOSUB 10800 





27.9 

FORT = 1TO2000 •' NEXTT ' 0PEN15, 8 , 15, " I 

" : C 

4 y j. 

R El M ************ * 

& & 'M i+i ''M 

+ *** 

4i'+: 


LR 



432 

REM* VERIFICATIC 

!N DES 

NOMS 

# 


230 

PR I HT " ï» UE CT LIRE TERMINEE ! " : FORT= 

1 T 0 

433 

REM************* 

s****** 

+ *** 

** 


4 00 p 

: NENT : GOTO 82 


459 

POKE 1,54'PEINT"»»! OK 

, JE 

FAIS 

CETTE 

300 

G 0 S U B10000 


VE F 

:I FI CAT ION. " 





301 

REM**************************** 


462 

RESTORE ' FORT=.l TC 

«67 




302 

REM* AFFICHAGE DES NOMS BASIC * 


464 

EEADZT,NT,CT,V,E 





303 

REM* SUR ECRAN ET IMPRIMANTE * 


466 

ZTCT>=ZT ' NT'.T.:"=!'• 

:T ' CT CT 

)=CT 

■ v e t > 

=v ' Be 

304 

REM**************************** 


t:>=e 






305 

PRI NT < PR I HT " l«M?FF ICHAOE A L ECRAN 

DE 

468 

FORF=V C T TOB C T i 





TOUS 

LES NOMS" 


470 

NZ-F'EEK C F i = AST—C 

:HRT < XZ 

> ' IF 

HZ “32 

THEN4 

308 

PR I NT = PR I NT " m»*MM3BSIC QUE VOUS 

AVE 

7 






Z DEFINIS. "• 


471 

LKT <T > =LKT C T >+AE 

:T 




309 

F'RINT".JTMUULEZ-VOUS SORTIR LES NC 

MS 

472 

NENT'NENT 





SUR 

L I MP RI MANTE C ON H > = " 


4 7 y 

FÜRM=1T067 





310 

GETEWT'IFEWT=""THEN310 


47 4 

F0RN=1T067 





31 1 

IFEWT="0"THENOK—18 = GOSUB900 


475 

IF M=N T H E H N E N T 





13 

PR I NT " *D?»»MC I EN NOUVEAU *DRES 

SE 

476 

IFLKT C M >-LKT < H > 1 

‘HENGOS 

IJ BS 3 

000 ■■ C 

OT 0 5 


51 


FICHE PROGRAMME 








FICHE PROGRAMME 


01 00 

11010 PRINT".'!>Mi»i*m'E SUIS EN TRAIN D ' EC 

477 IFM=67THENP0KE1,55 : PRINT"« «UCUNE 

RIRE" 

Eil R R R l_i F% ! 11 • U U T U 5 U1.tl U 

11015 PRINT"MMMMMMLfl MEMOIRE DE TRAVAIL. 

478 NEXT = NEXT :POKE1,55 

" 

47.9 FO F: T = 1TO10000 = N EX T = RETURN 

11020 PRINT":«»»#***n.lREE= 40 SECONDES." 

480 GETTT4 ^IFTT4= "" THEN480 

11038 RETURN 

48.1. RETURN 

2 @ 0 0 @ 0 0 S U B 10000 

4.97 PR INT "MM ION TRAVAIl_" 

20001 PRI NT " *»**!SI\ENU POUR LES COMMANDES 

498 P0KE41848,79 = POKE41849,75 : F0RT=41.850 

BASIC=" 

T041853:POKET,32'NEXT 

20882 POKE1,55 

499 GOSUI342000 : POKE 1RW : NEW : END 

20005 PRINT"MMa*S -REAT I ON D"'UN NOM BASI 

5@0 00*="" : LT4="" 

C. " 

501 I FL EN C Z* < T > =7THENGD4=Z4 < T > = RETURN 

20010 PRINT"Mai B SAUVEGARDE DES NOMS BAS 

502 XR=LEN Z* < T > 

IC SUR DISQUE" 

51© DK=7—MR 

20915 PR INT 11 «a.B LECTURE DES NOMS BASIC 

520 F0RQT=1TÜDK:LT4=L.T4+CHR4< 32 > : NEXTQT 

DU DISQUE." 

530 GD4=24 T !> +LT* = RETURN 

20018 PRINT"ma~S -EDEFIHIR LA MEMOIRE DE 

600 RM—LEN < OP* > > TL4= " " = 004= " " 

TRAVAIL." 

610 KD=7—RM 

20028 PRINT"Mans «FFICHAGE DES NOMS DEJA 

620 FQRTQ=1TOKD : TL4=TL4+CHR4 <32>:NEXTTQ 

DEFINIS- 11 

630 DG*=0P 4+TL* > RETURN 

20023 PRINT"Ma-B XERIFIER QUE LES NOMS Q 

697 REM#*##**^*#***###**###***#******* 

UE VOUS AVEZ DEFINIS NE SOIENT".: 

S 9 8 R E M •+ C H 01SIR L Fl L. fl N G U E DE S E R R E U R y # 

28024 PRINT" PAS EN DOUBLE." 


20025 PRINT"MSI_S “SSAVER LES NOUVEAUX NO 

700 PRINT'USSWN QUELLE L. R NOUE VOULEZ—VOU 

MS BASIC." 

S"=PRINT"LES ERREURS =" 

20026 PRINT"Ma-B SORTIR DU PROGRAMME." 

702 PR.IHT"HEN SJ-HRRNCRIS, a«BNGLflIS.. *ISLSL. 

20027 PRINT"Ma*B -ETOURNER AU MENU." : GOT 

EMflND :" 

0 30800 

704 GE T FR* : IF FR4= " " TH EN704- 

20030 IFEEP05527118THENPRI NT "MMIL V A U 

706 IFFR*="F"THENPRINT"MMDK,EN FRANCOIS 1 

NE ERREUR DANS LES DATA ! !"=END 

" : GOTO720 

20035 PRINT"M»txOTRE CHOIX SVP=WW" 

707 IFFR*= "A"THENPRINT"MWOK, EN ANGLAIS ! " 

280.99 PR I NT" H “UREE " M IDî- < TI ■$, 1,2 > J " = " 1 M 

: P0KE41833,32 = RETURN 

ID*<TI$, 3, 2-> MID^CTIt, 5,23 

708 .1 FFR* = " L.. " THENPR I NT " MMOKEN ALLEMAND ! 

20100 GE T 00 4= : I F 00 t= " " THEN20099 

" : GOSUB970 GOTO '720 

20105 I F00t>= "A" THEH50008 

710 GOTO 704 

20107 IFO04="0"THEMA=0 : GOTO 15 

720 PRINT"M»I*TTENDEZ UN PETIT MOMENT SVP 

29110 IF004= "B"THENJ.00 

" 

20112 IF004= "F" T H E N G 0 SIJ B420 • G0T082 

738 P ü K E 4 i 842 .■ S 9 

20115 IFO04="C"THEN200 

7 3 2 P 0 K E 41833.. 8 

2011S IF004="E"THEN300 

734 A fl =4.915 2 : B 8=417' 6 8 

20120 IF004= " L " THEN GOSUB 10000 ■■ A W=54 = GOTO 

786 F OR T T = 1 TTI29 = GOSUB55000 

400 

738 GOSUB 91 : NEXT TT 

20125 I FO04= " M "THENPR .1 NT " WMSALUT ! ! " ■ POK 

752 RETURN 

El , 55 = POK ES08.. 237 ■' NEW : END 

900 0PEN3 4 

20130 G 0 T0 20100 

Q M *=; p p j Kl T ü: •“! . ' l 'wlmlr M* Kl P T F W | Hl 1 ♦RPF fl 

•-•■r.'-.-vv ppM+++^-++:**+*********^:****if:+**.4i* 

SE «DRESSE" 

22223 REM*LECTURE DES COMMANDES BASIC* 

986 PR I NT#3 , "MMNOM NOM DEC 

22224 R E M * E C RIVER EXACTEMENT LES DATA* 

HEX 

22225 REM* ECRIT A LA SUITE DE CE * 

907 RRINT#3.« " --- 

22226 REM* PROGRAMME * 

____ _ __ h 

22230 REM***************************** 

908 PR I NT#3 .. " " 

3 @000 C L R : .01M Z 4 < 7 0 > 

970 FORZX= 1T 02:9 « REP DR* •• NEXTZM = RETURN 

30001 DIMX4 <70> 

989 RETURN 

30002 DIM C 4 < 7 0 

997 REM********************* 

30003 DIMVC70 3 = DI ML.K4 < 70> 

998 REM* MENU DU PROGRAMME * 

30004 DIMB < 70> 

999 REM****** *************** 

30010 F0RT=1T067 

10000. PRI NT ",73" CHR4 < 14> • TV=0 = 80=0 

30015 READZ4 , M4rC4 , V , B 

1 0005 PR INT "1 ASIC —ÜNSTRUCTION 

3O020 Z4CT > =24 = X4 <T >=X4 : C4 CT >=C4 ■ V<T >=V ; 

SET" 

BCT>=B 

10015 PR INT" !«*»!! RACE A CE PROGRAMME VOUS 

30021 EEP=EEP+V+B'NEXTT 

ALLEZ" 

31000 DATAEND , A09E .. A0A0 .. 41118 ..41128 

10016 PRINT"*»***»F'0UV0IR DEFINIR EXACTE 

31002 DATAFOR, A0A1 .. A0A3, 41121 .. 41123 

MENT" 

31004 DATANEXT .. A0A4 .. A8A741124 .,41127 

10017 PRINT"H*»M***HHS7 COMMANDES BASIC 

31006 DATADATA., A 8 A 8 .. A0AB., 41128, 41131 

" 

31008 DATA INRIJT#, A0AC, A0B1 , 41132,41137 

10020 RETURN 

31818 DATA .1NPUT, A0B2 , A0B6 , 41138,41142 

11000 PR INT "Ml" 

31012 DATADIM , A0B7 , A0B9 , 41143,41145 

1 1005 PRINT"MfcPVMMTTENDEZ SVP. . . " 

31014 DATAREAD , AOBfl , A@BD , 41146 , 41149 


52 











1016 DfiTfiLET, H0E'E, A0C8,41150,41152 
3101S DRTFlGOTO, R0C1, H0C4,41153, 41 156 

31029 DfiTfiRUN, A0C5, FI0C7,41157,41159 
1022 DR T fi IF, R0CS, R0C9,41160, 4.1 161 

31024 DflTflRE STORE, FI0CR, R0D0,. 41162, 41168 
i 1026 D Fl T fi G O S L! B, fi O D1, fi 0 D 6 , 4116 9, 4117 3 
31028 DflTfiRETURN, R8D7, R0DB, 41174, 4.1.179 

31030 DftïfiREM, fi@DC,RODE,41180,41182 

1832 DfiTRSTOP,R8DF,R0E2,41183,41186 
31034 DRTfiON,R8E3,R0E4,41187, 41188 
31036 DfiTlflWflIT, FI0E5, FI0E8, 41189, 41192 
1 038 DRT F! LORD, R0E9, R0EC, 41 193, 41.1.96 
31040 DRTRSAVE,ROED,R0F0,41197,41200 
31042 DfiTRVERIFV,R0F1,R0F6,41201,41206 
31 044 DfiTR DE!" F, R0F7, R0F9,41207,41209 
3.1.046 DATRF'OKë , R 6 Ffl, ROFD, 412.1.0, 41213 
31@48 DATfiPRINT#,R0FE,fi103,41214,41219 
? 1050 DF! T fi P RI NT, H104, Fl 108,41220, 41224 
31052 DF!"!” RC ONT, R109,R10C, 41225, 41228 
? 1 054 DR T FIL ï ST, Fl 1 SD, fi 1 10, 41229, 41232 
31056 DFlTFlCLR, fl .11 1, fl .1 13,41233, 41235 
31058 DRTflCMD,R114,fi116,41286,41238 
31 060 DR T fl S't'S , fl 117, fl 119,41239, 4.1.241 
31062 DRTFlOPEN, Fl 1.1. fl, fi 1 1D, 41242, 41245 
31064 DfiTR CL O SE, Fi 1 1E, Fl 122,41246,41250 
ü 1866 DFlTfiGET, fi 123, fi 125,41251,41253 
31068 DRTRNEW, fi .1.26, fi 128, 4.1.254, 41256 
31078 DfiTRTRB<,fi129,fi12C,41257,41260 
31.072 D Fl T Fl T O, Fl 12D, Fl 12E, 4126.1. , 41262 
31074 D FIT Fl F N, fl 1 2F, fi 130, 41263, 41264 
31076 DfiTRSPC<,fi131,H134,41265,41268 
31078 D Fi T RT UE N, Fl 135, fi 138, 41269, 41272 
31088 DflTfiNOT, fi 139, Fl .1.3B, 4.1273,41275 
3.1.082 DRT fi 8 TE P, Fl 13C, fi 13F, 41276, 41279 
31084 D Fl T Fl fi ND, fi 145, fi 147,41285,41287 
31086 DfiTR O R, Fl 148, fi 149, 41288, 41289 

310 88 D Fl T Fl S G N, Fl 14 D, fi 14 F, 4.1.293,41295 
31090 DfiTRINT,fl150,fl152,41296,41298 
310i 92 ,0 fl T Fi ifl El S, fl 15 3, fl 155, 41299, 4-133 0 1 
31094 DRT Fl U SR, fi 156, H158, 41362,41304 
31 096 DR T fl F RE, Fl 159, R15 B, 41305, 4130 7 
31098 DFlTFlPOS, Fl 150, fi l 5E, 41308, 41310 
31 100 DATASQR, R15F, 1=1161,41311,41313 
311@2 DRTfiRHD, fi162,fi164,41314,41316 
31 104 DRTflLÛG, Ifl 1.65, fi 167, 41317, 41319 
31106 DAT fil EN P, fi 168, fil 16 Fl, 41320, 41322 
31 1 08 DRT fi CO 8 , fl 1 SB, Fl 1 SD, 41323, 41325 
31110 DRT FIS I H , fl 16E, Ifl 170, 41326,41328 
3.1.1 12 DATAT AN, fi .17.1., Fl .173, 41329, 41331 
31114 DfiTfifi'TN,fi174,fi176,41332,41334 

31116 DfiTFlPEEK, fl 177, fi 17fi, 41335,41338 

311 18 DfiTl-lLEN, fl 17B, fl 17D, 41339,41341 

31120 DflTfiSTR*,fi17E,fi181,41342,41345 
31 :!. 24 DfiT AVAL, Fl 3.82, Ifl 184, 41346,41348 
3112 6 D fl T fl Fl S C, fl 18 5, Ifl 187,41349,41.351 
31128 DfiTfiCHR$, fl 188, Ifl 18B, 4 3.352, 41355 
31 130 DATAI. EF T*, RISC, FI190, 41356, 41360 
31 132 DATAR IG H T &, fl .191, fl 196,41361,41366 
3 3.134 DfiTfiM I DT, fl 197, fl 19fi, 41367, 4 3.370 
32002 GOTO 20030 

35000 PR I NT " nïMsMçJ" =GGSUB 10005 
36005 FORT=0TO 3.444 < N EN T = RETURN 

39997 REM###***##**#************ 

39998 REM* ERREURS EN FRANÇAIS * 

39999 REM*********************** 

40000 DfiTR"IL V Ifl TROP DE FICHIERS" 
40801 DfiTR"LE FICHIER DEMANDER EST DEJA 
OUVERT" 


40002 DATA"LE FICHIER DEMANDE N-EST PRS 
OUVERT" 

40003 DfiTR"LE FICHIER DEMANDE EST INTROU 
VfiBLE" 

40004 DfiTR “ L.E PER I PH ER I QUE D ENTREE/SORI 
E NECESSAIRE N'EST PRS DISPONIBLE" 

40005 DATA"TENTATIVE D'INPUT OU DE GET S 
UE UN FICHIER SPECIFIE EH ECRITURE" 

40006 DATA"TENTATIVE DE PEINT SUR UN FIC 
HIER SPECIFIE EN LECTURE” 

40007 DATA"IL MANQUE LE NOM DU FICHIER" 

40008 DfiTR"LE NUMERO DU PERIPHERIQUE EST 
ILLEGAL" 

40009 DfiTR"VARIABLE DE NENT NE CORRESPON 
DRHT PAS H CELLE DE FOR" 

40010 DATA"ERREUR DE SVNTflNE QUI PEUT ET 
RE DUE Fi UN MOT MAL ORTHOGRAPHIE" 

40011 DfiTR" J-'fil RENCONTRE RETURN SANS ET 
RE DANS UN SOUS-PROGRAMME" 

40012 DfiTR"IL V Ifl PLUS DE DONNEES fi DISP 
OSI.T ION" 

40013 DATA"LA VALEUR DEMANDEE N'EST PAS 
flUTORISEE" 

400.1.4 DATA" IL V ifl UN DEBORDEMENT DE ClflLC 
IJL " 

40015 DATA"IL V fi PLUS DE MEMOIRE LIBRE 
DANS L'ORDINATEUR" 

40016 DfiTR"LE NUMERO DE LIGNE DEMANDE N' 
INENISTE PAS" 

40017 DATA"LE NOMBRE DEMANDE EST fi L'EXT 
ERIEUR DES LIMITES SPECIFIEES DANS DIM" 

40018 DfiTR“UN TABLEAU NE PEUT ETRE DIMEN 
8I0NNE QU'UNE FOIS" 

40019 DATA"LA DIVISION PAS ZERO N'EST PR 
S AUTORISEE" 

40020 DATA"Llfl COMMANDE QUE VOUS VENEZ DE 
TAPER EST INTERDIT EN MODE DIRECT" 

40021 DfiTfi"TYPE NON CONCORDANT" 

40022 Dfi T H 11 L Ifl C F! Fl IN E D E C ifl R Fl C T E R b ESI El E 
fiUCOUP TROP LONGUE" 

40023 DfiTR"IL V fi UNE ERREUR DE DONNEE D 
ANS LE FICHIER" 

40024 DfiTR"Llfl FORMULE MfiTHEMATIQUE DEMON 
DEE EST TROP COMPLEXE" 

40025 DATA"IMPOSSIBLE DE CONTINUER APRES 
CE TYPE D'ERREUR" 

40826 DATA"Llfl FONCTION DOIT ETRE DEFINIE 
PAR DEF FN" 

40027 DfiTR"Llfl VERIFICATION EST INCORRECT 
E" 

40028 DfiTR " IL V fi UNE ERREUR DE CHAR GE ME" 
NT" 

40097 REM************************ 

46098 REM* ERREURS EN ALLENMfiND * 

40099 REM********** ************** 

41000 DfiT Ifl ZU VIEL KfiRTEI 

41802 DfiT ARA RTE I SC-HON OFFEN 

41@04 DfiTfiKfiRTEI NICHT OFFEN 

41006 DfiTfiKfiRTE I IJNFI ND B Fl R 

4.1.0@8 DfiTfifiPPFlRFlT RBWESEND 

41 0.1.0 DfiT fi P R O G R fi M M EIN G fi B E NI CHT OFFEN 

41012 D fi T Fi P R 0 G R Fl M M Ifl U S G Ifl B E NI CHT OFFEN 

410.1.4 DfiTfiKfiRTE INFIME F EH.LT 

41016 D Ifl T Ifl fl P P Ifl R Fl T N U M M E R ILLEGRL 

4.1020 DfiTR INSTRUCTION 'NENT-' NI CHT VORlflU 

SGEGftNGEN MIT 'FOR' 

41022 DflTFlSCHRE 1 BFEHLER 

41824 DfiT fi ÏNSTRUKTI ON 'RETURN'' NI CHT VOR 
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FICHE PROGRAMME 


; ANGEN HIT •" GOSUB 

dr th k e ::: ne geoebene mehr 
DATAZAHT nicht erlaubt 
D fiTfiUEBERFLUSSFEHLER 


DflTRSPE ICHERN NIC 
DFiTRL IGNIENNUMMER 
D R T Fl G E G E B E N E F RL 
D R T Fl T REELLE SCHON 


HT MÜEGLICH 
UNFINDBRR 
CH 

BEHUETZT 


UNMOEGLICH 


fi U S GEC 
41026 
4 1.030 
41 @32 
41034 
4 1 Ü36 
4 1 @40 
■ L 1 @ 4 £ 

4 1 044 
4 1 046 
4 1 @48 
41 0Ç0 
4 185,8 
4 J 054 
41 0 5 6 

4 •! 05Q 
41 060 
1 068 
4 1 @30 
4 1 @91 
41832 
4 : ij: 3:3 
41 894 
■J. 1 @95 

4 1 @ 9 1 j 
42080 
B ■ NE 7 
42083 
42006 

42810 FORD I =• 1 TO70 RE RD MH • PCX E32767+01, !'1H 
: NE K T Ci I ^ RETURN 
43000 DR T R191.. 227.. 9.. 128 .■ i 95 .■ 194 ,205.. 56.. 4 
8j169,54,133,1,162,8,189,38,128 
43002 D R T R32, 210,255, 232, 224, 34, 288,245, 
76,116,164,6,147,17,32,32,32,32 
43004 DRTR32, 32,32,32,14,194,65,83,73,67 
,32,195,79,78,83,84,82,85,67,84,73,79 
43006 DATA78,32,21 1,69, 84, 0, 00, 0,0, 8,8 

49997 REM************************** 

49998 REM* MODIFIER UNE NOM BRSIC * 

49999 REM**** ********************** 

DT=""■GOSUB10000 
PR ï NT " :«>******|-EF IH i TI on des 


DRTFiOIVIDIEREN MIT NUL..!. 

D Fl T fi 131EKT UNMOEGL. ï CH 

DAT fi V fi R J F! B EL-TV F' NICHT KORREKT 

D R T fi 2 RH !... E N METTE ZU LfiNG 

DAT F! FR RTE ï SPE ICHERFEHLER 

DfiTfiFDRMEL ZU KOMPLEX 

DATfiWEITERMfiCHEN NICHT MOEGLI CH 

DR T fi F UN F TI ON ÎJNDEFINI ERPfiR 

D fl T R K O N T R Ü L. !... E NI CHT KORREKT 

DRTPLESEFEHLER 

R E M * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
REM* ROUTINE EN LANGAGE MACHINE * 
REM* QUI L DR3QUE VOUS SEREZ 
REM* DANS LE NOUVEAUX BASIC 
REM* FONCTIONNERA AVEC LES 
REM* TOUCHES RUN/STÛP RESTORE 
R E M*************** *************** 
RESTGRE FORT-1TG67 READZ$,X*,C*,V, 
TT 

FORT—1T029 ;READA* * NEXTT 
FORT = .1T029 ; RE AD fi 4 = NEXTT 


* 

* 

* 

* 


NOMS 


: PRINT"HUE NOM BASIC A MODIFIER 


PÛKE204,100 


=D T T H E N 5 0 832 


;DT;" N'EXis 


50000 
50005 
BASIC" 

58010 0= 

SVP < " 

50015 GOSUB 600010 : PRI NT 
50816 IFDT=""THEN50600 

50020 PR I NT " 10 'E VERIFIE QUE LE NOM DE MA H 
DE EXISTE!" 

58025 H=0 ^ F OR H-1T067 < IF Z T < H 
50026 NEXT 

50828 PR I NT "M"~RREUR, LE NOM ' 

TE PAS !" 

50029 PRINT"MHTRESSER UNE TOUCHE POUR CO 
NTIHUER ! " 

50030 GETFT=IFF*=""THEN50030 
5 O 0 31 G 0 T 0 5 O 0i 0i @ 

50032 PRINT"MDK,LE NOM ”,DT," EXISTE EN 
MEMOIRE'" 

50033 OET=DT 

50035 FRINT"«ADRESSE HEXADECIMAL DU NOM 
" ; DT : ".. " 

50840 PRINT"!sr'EBUT DE LA MEMOIRE = "IXTCH 

50042 PRINT"M-IN DE LA MEMOIRE = "CT LH 
50045 PR INT "ADRESSE DECIMAL DU NOM " ; DT 


50848 PRINT"M-EBUT DE LA MEMOIRE = " VCH) 
50058 PR INT" >1-1N DE LA MEMOIRE " B < H 3 
50055 P RIN T " > !“T E S—V 0 U S SUR DE VOULOIR MO 
DIFIER LA " = PRI HT"COMMANDE " ; DT» <0/N3 • 
50960 GETWT^IFWT=""THEN50060 
58061 IF WT="0"THEN50065 

50062 IFWT="N"THEN50000 

50063 GOTO 50860 

50065 PR I NT " ,T> «COMMANDE "J DT.:" <0/N3' OK ! 

50078 PRINT" >I~NTREZ UN NOUVEAU NOM POUR 
L 

F! COMMANDE " : PR I HT " BAS IC " DT” ; " .; 

58075 Q=!... E N D T > ■ D T = " " = G 0 S U B 60000 
50076 IFLEN< DT >«0THEN50000 
58077 GOTO 62080 

50079 0=LEN<DT >>MT=MIDT<DT,0,1> : M=ASC< MT 
>^ N=M+128■0T=MIDT < DT,1,0-13+CHRT<N3 

50080 DT--0T •• FORR= 1TOLEN < ZT < H 3 3 

50085 ET—MIDT<DT,R,1>•ïFET=""THENL=32•00 
T 05 £109 5 

50090 L-ASC<ET3 

50095 POKEV C H 3 +R-1, L : N EX T.R 

50100 PRINT •• PRINT "MMkOTRE CHOIX < " 

50105 PRINT">lî3~SGNTIHUER LA DEFINITION D 
ES NOMS,," 

59110 PR INT "MS*.SEJOURNER AU MEMU. " 

50120 GETKT: IFKT-""THEN 5012© 

50122 IFKT="R"THEN 82 

5©124 ï FKT-"C"THEN 56000 

50128 G 0 T0 50.1 £ 0 

55000 B = IN T < A fi /256 3 : P 0 K E B B +1, B 

55002 B-fifi—B*256 ■ POKEBB,B :BB-BB+2'RETURN 

59996 REM****************************** 

5.99.97 REM* ROUTINE POUR L"’INSTRUCTION * 

59998 REM* .-.. INPUT ..-.—. * 

59999 R E M * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

60000 I=0 

60001 GETAT : IFAT-""THEN60001 

60002 X=A S C < A T 3 

60003 IFX=90THEN82 
66005 IFX—13THEHRETURN 

60006 IFI<1THEN60008 

60007 IFX—20THEN60070 

68008 IFLEN<DT 3 >=QTHENDT="" ; I=0•FORT=1TO 
0 i PR I NT " II" I < NEXT : GOTO 60010 
600109 GOTO 6001 1 

68010 FORT = 1T0Q +1 - PRINT" " : NEXT 1 FORT = 1T 
0Q+1 = PR INT "IJ" : NEXT 

60011 IFX=36 THEN60050 

60012 IFX=40 THEN60050 
60613 IFX=35 THEN60050 
60014 IFX=46 TH EN60050 

60816 IFX<65ORX>90THEN60001 
60050 PRIHTA f: 

60055 DT--DT+AT = 1 = 1 + 3 = G0TO60001 

60070 PR I NT AT: 1 = 1-1 = DT=MIDTCDT, 1, I 3 = GOT 

060:001 

62000 I FLEN < DT 3 OQTHENPRI NT = PR I NT " >JLfi LO 
NGUEUR DU NOM EST ILLEGAL"=GOTO 58166 
62105 GOTO 50879 

63000 REM PROGRAMME FAIT PAR FABIEN TISO 
N 

63065 PRINT">Ï~RREUR : IL V fi PLUSIEUR NOM 
PARE IL POUR " •• F'OKE 1,55 

63010 PRINT">i_fi MEME COMMANDE BASIC ! ! " 

^ RETURN 
63100 RETURN 
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INITIATION 

BINGOROSCOPE 


L e Parisien Libéré propose un jeu appelé Bingoroscope. 
Vous avez une carte sur laquelle il y a six signes astro¬ 
logiques. Chaque jour, une valeur est attribuée à cha¬ 
cun des douze signes astrologiques et un montant est tiré au 
sort. Si la somme des valeurs attribuées aux signes de votre 
carte est égale au montant vous gagnez... On a prévu que 
vous avez plusieurs cartes (ou que vous calculez pour tout le 
quartier) pour rentabiliser le chargement d’un programme. 
Pour nous, le jeu consiste surtout à écrire le programme. 
Une petite remarque en passant. Quelques petites modifica¬ 
tions du programme du mois dernier vous permettent de 
trouver quelle est la carte gagnante du jour parmi les 924 
possibles. 


Charge les signes et leurs valeurs. 

Pour mettre les douze libellés des signes. 

Pour mettre les valeurs tirées pour chaque signe. 

Les douze signes. 

On charge les libellés à partir des DATAS (lignes 420 à 450) 
et on en profite pour demander la valeur actuelle de chaque 
signe. 

Fin d’un signe. 

Tirage du jour. 

On demande le montant du jour. 


Traite vos cartes. 

Le nombre de cartes dont vous disposez (DATA ligne 470). 
Traite chaque carte. 

Affiche le numéro de la carte. 

S sert à mettre la somme de la carte en cours. 

Chaque signe d’une carte. 

C’est le numéro du signe en cours. 

On affiche le libellé du signe en cours. 

On fait la somme au fur et à mesure pour une carte. 

Fin d’un signe. 

On saute une ligne et on affiche le total. 

Et on teste si le total est égal au montant du jour. Si vous avez 
une instruction IF complète, ces quatre lignes ne feront plus 
qu’une. 


Fin d’une carte. 

Les DATAs. 

Liste des libellés des signes (dans l’ordre). 

Vos cartes. 

Mettre en premier le nombre de cartes. 

Doit correspondre au nombre de lignes de data qui suivent. 
Les six numéros correspondent à chaque signe de votre 
carte (1 Bélier. 2 Taureau...). 


C. FARRAGUT et François DUPIN 


100 REM -LES SIGNES - 

110 DIM S$(12) 

120 DIM S(12) 

130 FOR 1=1 TO 12 
140 READ S$(I) 

150 PRINT S$ (I) , 

160 INPUT S(I) 

170 NEXT I 
180 PRINT 

190 REM -TIRAGE DU JOUR - 

200 PRINT "MONTANT DU JOUR "; 

210 INPUT M 
220 PRINT 

230 REM -VOS CARTES - 

240 READ N 

250 FOR 1=1 TO N 

260 PRINT "CARTE ";I;": 

270 S=0 

280 FOR J=1 TO 6 

290 READ C 

300 PRINT S$(C)"; 

310 S=S+S(C) 

320 NEXT 
330 PRINT 

340 PRINT "TOTALES,"- 
350 IF S=M THEN 380 
360 PRINT "PERDU" 

370 GOTO 390 

380 PRINT "GAGNE !!!!!!!" 

390 PRINT 
400 NEXT I 

410 REM — SIGNES - 

420 DATA BELIER,TAUREAU,GEMEAUX 
430 DATA CANCER,LION,VIERGE 
440 DATA BALANCE,SCORPION,SAGITTAIRE 
450 DATA CAPRICORNE,VERSEAU,POISSONS 

460 REM — VOS CARTES - 

470 DATA 2 

480 DATA 1,2,3,4,5,6 
490 DATA 7,8,9,10,11,12 
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Atmos 


OTHELLO 

Langage: Basic. 


Bernard Mistral 

Trente-deux ans. Sa profession l’a 
poussé en 1981 vers l’informatique 
quia pris depuis une bonne place dans 
ses loisirs, à côté des échecs et des 
jeux de réflexion en général. Attend, 
avec sa femme, deux «heureux 
événements » pour août. 


C onnu sous le nom de Reversiez 
Allemagne et en Angleterre à la 
fin du siècle dernier, le jeu 
Othello réapparaît en 1971 au Japon, 
puis aux Etats-Unis en 1975. Il arrive en 
France en 77 et une fédération s’y crée 
en 1983. Il est remarquable de noter 
que plus de la moitié des membres de 
cette fédération s’adonne à la 



"bernard mistral 
gagne 

UN CANON v 20 
et 3000 F 
BON D’ACHAT 

MICRO-APPLICATIO 


programmation (un autre sport po! 
intellos !). 

Pour ceux qui ne connaîtraient pas 
encore le jeu, le principe en est assez 
simple. Deux joueurs s'affrontent sur 
un échiquier dont toutes les cases sont 
identiques. Dans le programme 
présenté ici, vous êtes opposé à votre 
Atmos. Les joueurs disposent, l’un de 
pions blancs, l’autre de pions noirs. 
Chacun pose un pion quand vient son 
tour de jouer, mais il doit le poser à côté 
d’un pion adverse de façon que, en 
traçant une ligne imaginaire (verticale, 
horizontale ou diagonale), il se trouve 
face à un de ses propres pions. Les 
pions adverses pris ainsi en tenaille 
deviennent alors la propriété de celui 
qui vient de jouer et change de couleur 
à l’écran. Il est possible de s’approprier 


5me temps. La 
partie se termine quand il n’y a plus 
possibilité de mouvement, soit que 
l’échiquier soit entièrement rempli, soit 
que tous les pions soient de la même 
couleur, soit que l’un des joueurs ne 
puisse plus créer de rangée. 

Un jeu de commandes vous aidera. Il 
suffira de taper <1> et ce cher 
Atmos jouera le coup à votre place. En 
tapant <CC> en cours de partie, 
vous pourrez changer de camps, 
prenant la place d’Atmos et lui laissant 
la vôtre (pratique en cas de débâcle 
prévisible), <N > permet de choisir 
un niveau de jeu de (1 à 3), même en 
cours de partie. 

Bernard MISTRAL 


97 REM-INITIALISATION- 

98 REM - 

99 REM 

100 RESTORE:CLS:D0KEI306.65535 

110 F0RI=1T06:P0KE*B7F0+I,126:NEXTI 
120 P0KEIB7F0,28:P0KEIB7F7,28 
130 PAPERO:INKO 
140 CH$=CHRt(27) 

150 AF*=*«te"+CHR*U26)+ ,, 6*+CHR*(126) 
160 F0RI=0T06 
170 P0KEIB7D8+I.0 
180 NEXTI 

190 PÛKEIB7DB,8:P0KE#B7DC,8 
200 DIMMU(99):DIMVL(99):DIMDR(8) 

210 NN=3:NR=1:BL=2:CB=-1 
220 VS^Ht+’R’^CHi+'P' 

230 F0RI=0T09 

240 MU(I)=CB:I1=1<10:12=11+9:13=1+90 
250 MU(I1)=CB:MU(12)=CB:MU(13)=CB 


260 NEXTI 

270 MU(44)=BL: MU(55 > =BL 
280 MU(45)=NR:MU(54)=NR 
290 P0=2:PJ=2:PS=0:T=1 
300 F0RMT08 
310 READI1:DR(I)=I1 
320 NEXTI 

330 DATA-1,-11,-10,-9,1,11,10,9 
340 FQRM1TQ88 
350 READI1:VL(I)=I1 
360 NEXTI 

370 DATA95,0,15,10,10,15,0,95,0,0,0,-5, 
9.12,12,9,-5,0,0 

380 DATAO,15,9,15,20,20,15,9,15,0,0,10, 
12,20,18.18,20,12,10,0 
390 DATAO,10.12,20,18,18,20,12,10,0,0,1 
5,9,15,20,20,15,9,15,0 
400 DATAO. 0, -5,9,12,12,9,-5,0.0,0.95,0, 
15,10,10,15,0.95 


495 REM 

496 REM- 

497 REM-DEBUT DE PARTIE- 

498 REM - 

499 REM 

500 D0KEI306,10000 
510 CLS 

520 PRINT84,0;CH$;’FTu as les NOIRS’; 
530 H=BL:J=NR 
540 M=BL:J=NR 
595 REH 

$96 REH- 

597 REH-A QUI DE JOUER ?— 

598 REM - 

599 REM 

600 B0T0630 
610 6QSUB3000 

620 IFPS=20RPJ=00RT=61THENG0TO200O0 
630 60SUB1000 
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640 IFPS<2ANDP0>0ANDT< 61THEN610 

995 REM 

996 REH- 

997 REH-COUP DU JOUEUR- 

998 REH - 

999 REH 

1000 60SUB5000 
1010 AD=H:TR=J 

1020 PRINT@24,7;* "; 

1030 PRINT@25,7;CH$;*GA toi 
1040 6ETC»:PRINTCt; 

1050 IFC»=""THENGOT01030 
1060 IFC4='P"THEN60T01500 
1070 IFCS=*I"THEN7000 
1080 IFC*= * R * THEN15000 
1090 IFC»=‘N’THEN11000 
1100 C=ASC(C*) : C=C-64 
1110 IFC<10RC>8THEN60T01030 
1120 6ETL»:PRINTL»; 

1130 IFL*=""THENGOTOl150 
1140 IFL»=“P‘THEN60T01500 
1150 IFL»="C*THENIFC»="C"THENC»="CC":GO 
T07000 

1160 IFL»= * B"THENIFC*=* A * THENC*= * AB": 60 
T020000 

1170 L=ASC(L»):L=L-48 

1180 IFL<1ORL>8THEN60TO1030 

1190 CS=10*C:CS=CS+L 

1200 IFHU(CS)< >VDTHEN60T01000 

1210 SF=-1:60SUB4000 

1220 IFS=OTHENGOTO 100.0 

1230 SF=1:G0SUB4000 

1240 PJ=PJ+S:PJ=PJ+1:PO=PO-S:T=T+1:PS=0 
1250 RETURN 

1495 REH 

1496 REM--- 

1497 REH-JE PASSE- 

1498 REM - 

1499 REM 

1500 FÜRCS=11T088 

1510 IFHU(CS)< >VDTHENS=0: GOTO1530 
1520 STOP 

1530 IFS=0THEN60T0155Û 
1540 CS=88 
1550 NEXTCS 

1560 IFS=OTHENPS=PS+1: GOTO1250 
1570 60TQ1000 

2995 REH 

2996 REH- 

2997 REH-ATHOS JOUE- 

2998 REH - 

2999 REH 

3000 PRINT824,8;CH»;’ je réfléchis"; 
3010 GOSUB5000:1Fï>34ANDNN=3THENG0SÜB 10 

500 

3020 AD=J:TR=H:B=-100 

3030 F0RCS=11TQ88 

3040 1FT >34ANDNN >1THENG0SUB9000 

3050 IFHU (CSX >VDTHEN3120 

3060 SF=-1:G0SUB4000 

3070 IFS=0THEN3120 

3080 SC=VL(CS)-S 

3090 IFT>18THENSC=SC+S»2 


3100 IFSC<=BTHENG0T03120 
3110 B=SC:HC=CS 
3120 NEXTCS 

3130 IFB=-100THENPRINT824,8;CH»;* JE PA 
SSE * ï : PS=PS+1 :GQT03210 

3140 L=MC/10:L=INT(L):L=L*10 
3150 L=HC-L:HB=HC 
3160 MC=HC/10:HC=INT(HC):HC=HC+64 
3170 C$=CHR$(HC):C$=C*+HID$(STR»(L),2,1 

) 

3180 PRINT824,8;CH»;" Je JOUE :";C»;" " 

• 

3190 SF=1:CS=HB:G0SUB4000 
3200 P0=P0+S+1:PJ=PJ-S:PS=0:T=T+1 
3210 RETURN 

3995 REH 

3996 REH- 

3997 REH-VERIFICATION DU COUP 

3998 REH - 

3999 REH 

4000 D0KEI306,65535 
4010 S=0:F0RK=1TQ8 

4020 D=DR(K):CC=CS+D:S1=0 
4030 IFHU(CC)< >ADTHEN6QT04120 
4040 S1=S1+1 : CC=CC+D 
4050 IFHU(CC)=ADTHEN4040 
4060 IFHU(CC)< >TRTHEN60T04120 
4070 S=S+S1 

4080 IFSF< >1THENG0T04120 
4090 CC=CS:F0RK1=0T0S1 
4100 HU(CC)=TR:CC=CC+D 
4110 NEXTK1 
4120 NEXTK 

4130 DÜKEI306,10000:RETURN 

4995 REH 

4996 REH- 

4997 REH-AFFICHAGE DU JEU- 

4998 REM - 

4999 REM 

5000 D0KEI3Û6,65535:BB=0:P0KEI26A,10 
5010 PRINT@3,2;V<::PRINT86,3;"A B C D E 
F G H !“;:PRINTS22,2;"!’; 

5020 PRINT823,3;CH<;"T';CHt;"GOTHELL’AT 
HOS"; 

5030 PRINT83,3;V»;:PRINT639,3;V»; 

5040 F0RZ=1TG8:Z1=Z»2:Z1=Z1+2:PRINT83,Z 
1;V»;CHR»(48+Z); 

5050 PRINT821,Z1;CH$;"8!:PRINT822,Z1+ 
1;"!"; 

5060 PRINT839,Z1;V»; 

5070 PRINT83,Z1+1;V$;:IFZ<>1THENIFZ<8TH 
ENPRINT839,Z1+1;V»; 

5080 IFZ=1THENPRINT823,Z1;CH»;"T ";CHR$ 
(96);" B. Mistral"; 

5090 IFZ=2THENPRINT@23«Z1 ; N»;CH»;"G"; : P 
RINT823,Z1+1;N»;CH»;"6"; 

5100 IFZ=3THENPRINT§23,Z1; N»;CH»;"6"; : P 
RINT823,Z1+1;N»;CH»;"6"; 

5110 IF Z=4THENPRINT823,Z1+1; CH»;"R"; CH» 
;" R- Réglés"; 

5120 IFZ=5THENPRINT823,Z1;CH»;"R";CH»;" 
CC= Couleurs"; 

5130 IFZ=5THENPRINT823,Zl+l;CH»;"R"iCHt 


;" 1= Inversion"; 

5140 IFZ=6THENPRINT@23,ZI ; CH»;"R"; CH»;" 
P= Passe"; 

5150 IFZ=6THENPRINTS23,Z1+1;CH»;"R";CH» 
;” AB= Abandon";:PRINT@23,Z1+1;CH»;"R"; 
5160 IFZ=7THENPRINT823,Z1; CH»;’R"; CH»;" 
N= N i veau " ; : PR INT823, Z1+1 ; CH» ; " R * ; 

5170 IFZ=8THENPRINT823,Z1 ; CH»;"Q"; CH»;" 
G NIVEAU =";NN; 

5180 NEXTZ 

5995 REH 

5996 REH- 

5997 REH-MISE A JOUR DAHIER— 

5998 REH - 

5999 REH 

6000 PRINT@30,0;T;N» 

6010 F0RZ-1TQ8 

6020 Yl=Z»2+2 
6030 FDRYMOT080STEP10 
6040 X1=(2»(Y/10))+3:CS=Y+Z 
6050 NU=HU(CS)»2:NU=NU+1 :BB=BB+1 
6060 IFBB=19THENPRINT* "; 

6070 PRINT8Xl,Yl;CHt;HID*(AF»,NU,2); 

6080 NEXTY 

6090 NEXTZ 

6100 PRINT837,8;""; 

6110 D0KEI306,10000:P0KEI26A,3 
6120 RETURN 

6995 REH 

6996 REH- 

6997 REH-CHOIX DE LA COULEUR- 

6998 REM - 

6999 REM 

7000 HJ=M: H=J: J=HJ:JO=PJ:PJ=PO:PO=JO 
7010 IFJ=NRTHENPRINT84,0;CH»;"FTu as le 

s NOIRS" 

7020 IFJ=BLTHENPRINT84,0;CH»;"FTu as le 
s BLANCS" 

7030 PRINT824,7;CH»;" "; 

7040 IFC»="CC"THEN1030ELSEGOT01250 

8995 REH 

8996 REM... 

8997 REM-NIVEAU 2- 

8998 REH - 

8999 REH 

9000 IFCS< >11THEN9100 

9010 IFHU(CS)=MTHENVL(12)=90:VL(21)=90: 
VL(22)=60:60T09390 

9020 IFHU(CS)=JTHENVL(12)=-15:VL(21)=-l 
5:VL(22)=-20:G0T09390 
9030 IFHU(13)=VDTHENVL(12)=-30 
9040 IFMU(31)=VDTHENVL(21)=-30 
9050 IFHU(33)=VDTHENVL(22)=-40 
9060 IFHU(13)THENVL(12)=-50:IFNN=3THENI 
H=13:IV=12:HV=1:G0SUB10000 
9070 IFHU(31) THENVL(21) =-50: IFNN=3THENI 
H=31:IV=21:HV=10:GOSUB10000 
9080 IFHU(33)THENVL(22)=-80:IFNN=3THENI 
M=33:IV=22:HV=11:SQSUB10000 
9090 60TD9390 
9100 IFCS018THEN9200 
9110 IFHU(CS)=MTHENVL(17)=90:VL(28)=90: 
VL(27)=60:60T09390 
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9120 IFMU(CS)=JTHENVL(17)=-15:VL(28)=-l 
5 : VL(27)=-20:60T09390 
9130 IFMU(16)=VDTHENVL(17)=-30 
9140 IFMU(38)=VDTHENVL(28)=-30 
9150 IFMU(36)=VDTHENVL(27)=-40 
9160 IFMU(16)THENVL(17)=-50:IFNN=3THENI 
M=16:IV=17:HV=-1:60SUB10000 
9170 IFMU(38)THENVL(28)=-50:IFNN=3THENI 
M=38:IV=28:HV=10:60SUB10000 
9180 IFMU(36)THENVL(27)=-80:IFNN=3THENI 
H=36:IV=27:HV=9:60SUB10000 
9190 60T09390 
9200 IFCS081THEN9300 
9210 IFMU(CS)=MTHENVL(71)=90:VL(82)=90: 
VL (72)=60:60T09390 

9220 IFMU(CS)=JTHENVL(71)=-15:VL(82)=-l 
5:VL(72)=-20:B0T09390 
9230 IFMU(61)=VDTHENVL(71)=-30 
9240 IFMU(83)=VDTHENVL(82)=-30 
9250 IFMU(63)=VDTHENVL(72)=-40 
9260 IFMU(61 )THENVL(71 ) =-50: IFNN=3THENI 
M=61:1V=71 : HV=-10:60SUB10000 
9270 IFMU(83)THENVL(82)=-50:IFNN=3THENI 
M=83:IV=82:HV=1:6QSUB10000 
9280 IFMU(63)THENVL(72)=-80:IFNN=3THENI 
M=63:IV=72:HV=-9:60SUB10000 
9290 60T09390 
9300 IFCSO88THEN9390 
9310 IFMU(CS)=MTHENVL(87)=90:VL(78)=90: 
VL(77)=60:G0T09390 

9320 IFMU(CS)=JTHENVL(87)=-15:VL(78)=-l 
5: VL(77)=-20:60T09390 
9330 IFMU(86)=VDTHENVL(87)=-30 
9340 IFMU(68)=VDTHENVL(78)=-30 
9350 IFMU(66)=VDTHENVL(77)=-40 
9360 IFMU(86)THENVL(87)=-50:IFNN=3THENI 
M=86:1V=87:HV=-1:60SUB10000 
9370 IFMU(68)THENVL(78)=-50 :IFNN=3THEN I 
M=68:IV=78:HV=-10:B0SUB10000 
9380 IFMU(66)THENVL(77)=-80: IFNN=3THENI 
M=66:IV=77:HV=-11:ËOSUBIOOOO 
9390 RETURN 

9995 REM 

9996 REM- 

9997 REM-——NIVEAU 3- 

9998 REM - 

9999 REM 

10000 J1=0:J2=0 
10010 FORJ3=1T05 

10020 A(J3)=HU(IH+HVIJ3) 

10030 IFA(J3)=0THENJ2=1 
10040 NEXTJ3 
10050 IFJ2=1THEN10110 
10060 F0RJ3=1T04 

10070 IFA(J3)=MANDA(J3+1 )< >MTHENJ1=1 

10080 NEXTJ3 

10090 IFJ1=1THEN10110 

10100 IFA(5)=MTHENVL(IV)=60 

10110 RETURN 

10500 KK=KK+1: IFKKMTHEN10590 

10510 FORI1=11T081STEP10 

10520 VL(11)=VL(11)13:VL !11+1)=VL(11+1) 

*3 
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10530 VL(I1+2)=VL(I1+2)*3 
10540 NEXTII 
10550 FORII=64TD68 

10560 VL(II)=VL(II)*3:VL(II+10)=VL(II+l 
0X3 

10570 VL(I1+20)=VL(11+20)*3 
10580 NEXTII 
10590 RETURN 

10995 REH 

10996 REM- 

10997 REM-CHOIX DU NIVEAU- 

10998 REM - 

10999 REM 

11000 PRINT824,7;CH*;“CNiveau la3 :*; 
11010 6ETNN 

11020 IFNN<1ORNN >3THEN11000 
11030 60T01000 

14995 REH 

14996 REM- 

14997 REM-REGLES- 

14998 REH - 

14999 REM 

15000 CLS: INK6:PRINT’OTHELLO : REGLES D 
U JEU' 

15010 PRINT'-“:PRINT 

15020 PRINT'LE JEU D’OTHELLO SE JOUE A 
DEUX. 1 

15030 PRINT'Chacun choisit une couleur, 
noir ou" 

15040 PRINT'blanc.*:PRINT 
15050 PRINT'Les deux joueurs décident q 
ui sera le" 

15060 PRINT'premier a jouer,soit d’un c 

o»»un‘ 

15070 PRINT'accord ou par tirage au sor 
t.* 

15080 PRINT:PRINT'Chapue joueur pose un 
seul pion sur* 

15090 PRINT'le plateau a tour de role.L 
e pion * 

15100 PRINT'doit etre pose de Tacon a E 
NTOURER un* 

15110 PRINT'ou plusieurs pions adverses 
, pour* 

15120 PRINT'permettre de les RETOURNER 
apres* 

15130 PRINT'avoir joue.*:PRINT 
15140 PRINT'Un joueur doit TOUJOURS ENT 
OURER et* 

15150 PRINT'RETOURNER au MOINS UN PION 
ADVERSE* 

15160 PRINT'a CHAQUE TOUR de JEU. S’il 
ne peut ' 

15170 PRINT'pas entourer et retourner, 
il PERD* 

15180 PRINT-SON TOUR.*:PRINT 
15190 PRINT:PRINT*TAPE SUR UNE TOUCHE P 
OUR LA SUITE*;:6ETX* 

15200 CLS:PRINT’OTHELLO : REGLES DU JEU 

■ 

15210 PRINT*-*:PRINT 

15220 PRINT'Un pion peut entourer une o 

u * 


15230 PRINT’plusieurs rangées de pions 
adverses* 

15240 PRINT*en un seul tour de jeu. Une 
rangée* 

15250 PRINT'se compose d’un ou plusieur 
s pions de* 

15260 PRINT’la «eie couleur, disposes e 
n une * 

15265 PRINT'ligne droite,horizontale, v 
erticale* 

15270 PRINT'ou diagonale. (Theoriquemen 
t, il est* 

15280 PRINT'possible d’entourer huit ra 
ngees d’un* 

15290 PRINT'seul coup !).*:PRINT 
15300 PRINT'Les pions adverses ne peuve 
nt etre " 

15310 PRINT’retDurnes qu’aussitot apres 
avoir ’ 

15320 PRINT'valablement joue un pion.*: 
PRINT 

15330 PRINT'La partie est teninee lors 
que le * 

15340 PRINT'damier est entièrement reco 
uvert .ou* 

15350 PRINT'bien lorsque personne ne pe 
ut plus* 

15360 PRINT'entourer de pions adverses, 
ou que * 

15370 PRINT'tous les pions sont de la ■ 
eme* 

15380 PRINT'couleur. Le joueur qui a le 
plus de* 

15390 PRINT'pions a sa couleur a gagne 
la partie.*:PRINT 

15400 PRINT'TAPE SUR UNE TOUCHE POUR CO 
NTINUER*;:6ETX$ 

15410 CLS:INKO 

15420 IFJ=NRTHENPRINTM,0;CH$;*FTu as 1 
es N0IRS*;CH«;"H* 

15430 IFJ=BLTHENPRINT84,0;CHt;*FTu as 1 
es BLANCS* ;CH*;*H* 

15440 G0T01000 

19995 REM 

19996 REM- 

19997 REH-FIN DE PARTIE- 

19998 REM --- 

19999 REM 

20000 G0SUB500O 

20010 PRINT83,20;CHi;*FTu as*;PJ;'PIONS 

et moi*;PO:PRINT 

20020 IFC$=*AB*THEN20060 

20030 IFPJ<POTHENPRINTCH$;*AJE GAGNE .* 

:PRINT:60T020060 

20040 IFPJ=POTHENPRINT"PARTIE NULLE .": 
PRINT:G0T020060 

20050 PRINTCH$;’ABRAVO !! TU GAGNE .*:P 
RINT 

20060 PRINTCH$:*FUne autre partie ? (OU 
1 = 1 ) :*; 

20070 GETZZt 
20080 IFZZ$=*1"THENRUN 
20090 CLS:INK7: STOP 



























Courez chez 


PLACE D’ITALIE 

62, rue Gérard - 75013 PARIS 

Tél. (1) 45.81.51.44 - Télex RUNINFO 270841 F 

ouvert du lundi au samedi de 9 h à 19 h 


EHMôlKk 


128 

Tous les jeux du 

Déjà des programmes sérieux ! 

Des prix fantastiques sur 128,1571, 
moniteurs 40/80 colonnes ! 
Consultez-nous. 

[Des remises surprises sur les jeux| 
Des jeux 

RASPUTIN. C 85 F 

COMMANDO. C 105 F 

BOULDER DASH III. C105F 

YIE ARKUNG FU. Cl 20 F 

ZORRO. C 115 F - D 175 F 

FAIRLIGHT. C 95 F 

CRITICALMASS. Cl 20 F 

KUNG FU MASTER.C 140 F - D 175 F 

SPITFIRE 40. Cl 35 F 

BACK TO THE FUTURE. Cl 20 F 

THE WAY OF THE EXPLODING FIST D 155 F 

ROCICN’WRESTLE. C105F 

SUPERBOWL. C 95 F 

PING PONG. C 95 F 

SOUTHERN BELLE Simulation de conduite de 
locomotive à vapeur.C 90 F 



I NFORMRT 


COMMODORE 

SI 

© 

© 


l’authentique spécialiste 
de COMMODORE 
d’AMSTRAD et d’ATARI ST 


SgSfr votre AMSTRAD 



r DATEX GRAPHIC MOUSE 

I Une souris pour le 64 (souris + disquette + cas¬ 
sette) . 995 F 

POWER CARTRIDGE 

La cartouche qui “DYNAMITE" votre 64_ 495 F 

GAME KILLER La cartouche qui supprime les col¬ 
lisions de sprites !. 135 F 

VOICE MASTER.C 860 F - D 860 F 

• RITEMAN C+ L'imprimante la plus souple pour 
le 64 et le 128. 3300 F 

HOUSSE MPS 801 ou 803. 70 F 

HOUSSE CLAVIER 64. 40 F 

HOUSSE DATASETTE C2N. 35 F 

HOUSSE 1541 . 70 F 

HOUSSE IMPRIMANTE RITEMAN C+ 70 F 

HOUSSE CLAVIER 128 . 45 F 

HOUSSE 1901 . 105 F 

HOUSSE 1571 . 70 F 



VOUS VOULEZ ETRE PLUS PERFORMANT!!! 

J nouveau ! '■ . joystick COMPÉTITION PR0195 F 

j. tir équipés ae ,, , 128 - 64 - VIC 20 - ATARI 

^ boutons de „ IO ROSttITCHS. • • AMSTRAD 464 _ 664 _ 6128 


520 STF Prix : 5990 F 

Ordinateur personnel 520 STF 
+ lecteur de disquette 3” 1/2 intégré 500 Ko 
+ câble PERITEL 

1040 STFM Prix : 9990 F 

Ordinateur professionnel 
+ lecteur de disquette 1 Mo intégré 
+ moniteur monochrome SM 124 


1040 STFC Prix : 11990 F 

Ordinateur professionnel 
+ lecteur de disquette 1 Mo intégré 
+ moniteur couleur SC 1224 


PÉRIPHÉRIQUES 


SF 354 lecteur disq Prix : 2000 F 
SF 314 lecteur disq Prix : 2700 F 


A ATARI 



SM 124 monit mono Prix : 1990 F 
SC 1224 monitlcoul Prix : 3990 F 


HABADISC Disque dur, capacité 10 Mo, équiva¬ 
lent à la capacité de stockage de 27 disquettes 
ATARI SF 306 cylindres, 1224 pistes, 345 pistes 
par pouce. 8500 F 





COMPTANT 

CREDIT CETELEM 

520 STF 

5990 F 

TTC 

504 F par mois 

12 mensualités 

Apport comptant TEG 
690 F 22,90 % 

Coût total du crédit avec 
assurance 748 F 

1040 STFM 
monochrome 

9990 F 

TTC 

817,70 F par mois 
12 mensualités 

Apport comptant TEG 
1390 F 22,75 % 

Coût total du crédit avec 
assurance 1212,40 F 

1040 STFC 
couleur 

11990 F 

TTC 

950,10 F par mois 
12 mensualités 

Apport comptant TEG 
1990 F 22,60% 

Coût total du crédit avec 
assurance 1401,20 F 


BRATACAS.D 399 F 

DELTA PATROL.D 245 F 

FLIPSIDE.D 280 F 

DEGAS.D 425 F 

EASY DRAW.D 1375 F 

COLOUR SPACE.D 200 F 

KING QUEST II.D 450 F 

LANDS OF HAVOC.D 280 F 

MOM AND ME.D 385 F 

MONKEY BUSINESS.D 245 F 

MUDPIES.D 280 F 

MURRAY AND ME.D 385 F 

SUNDOG.D 450 F 

TIME BANDIT.D 305 F 


ULTIMA II. 

WINNIETHE POOH. 

MISSION MOUSE. 

AMAZON. 

FAHRENHEIT 541. 

PERRY MASON. 

NINE PRINCES IN AMBER. 

DISK HELP. 

PRINT MASTER. ... 

ART GALLERY acc. de PRINTMASTER' 
accessoires 

MOUSE HOUSE. 

MOUSE MAT. 

PAK A DISK. 




TOMAHAWK. C 105 F - D 155 F 

SHADOWFIRE.Cl 05 F 

BATMAN.C 95 F 

DAMBUSTERS.C 99 F 

BOMBJACK.C 99F 

COMMANDO. C 99 F 

COLOSSUS CHESS 4.0.C 115 F - D 155 F 

ROCKY HORROR SHOW.C 125 F - D 170 F 

FRANK BRUNO’S BOXING.C 99 F -D 195 F 

INTERDICTOR PILOT.C 195 F - D 250 F 

AIRWOLF. C 125 F 



gw.’iùiw.j 

CRÉDIT CÉTÉLEM 

CPC464 

Moniteur 

monochrome 

2690 F 

284 F 
par mois 

9 mensualités 

Apport 
comptant 
390 F 

TEG 
22,90 % 

Coût total du crédit 
avec assurance 
256 F 

CPC 464 
Moniteur 
couleur 

3990 F 

342,60 F 
par mois 

12 mensualités 

Apport 
comptant 
390 F 

TEG 
22,90 % 

Coût total du crédit 
avec assurance 
511,20 F 

CPC 6128 
Moniteur 
monochrome 

4490 F 

390,10 F 
par mois 

12 mensualités 

Apport 
comptant 
390 F 

TEG 
22,90 % 

Coût total du crédit 
avec assurance 
581,20 F 

CPC 6128 
Moniteur 
couleur 

5990 F 

504 F 
par mois 

12 mensualités 

Apport 
comptant 
690 F 

TEG 
22,75 % 

Coût total du crédit 
avec assurance 
748 F 


Des jeux 

BOULDER DASH. C110F 

TORNADO LOW LEVEL.C 110 F - D 170 F 

SPITFIRE 40.C 99 F - D 160 F 

STAIRWAY TO HELL.. C 70 F 

TAUCETI. C 89 F 

2112 AD. D 140 F 

STRIKE FORCE HARRIER. C 95 F 

CONTRAPTION. C 99 F 

BATTLEOFTHEPLANET. C130F 

STAIRWAY TO HELL. C 70 F 

WAY TO THE TIGER. C 95 F 

TANK COMMANDER. D140F 


A vous la création d’images! 
CRÉEZ, MODIFIEZ, AMÉLIOREZ, 
IMPRIMEZ... 

LES IMAGES DE VOTRE CHOIX. 


SOUTHERN BELLE. C115F 

AZIMUTH. Cl 30 F 

IMPRIMANTE DMP 2000.100 cps, traction et fric¬ 
tion câble inclus. 2290 F 

HOUSSES 

• 464 couleur (2 housses). 140 F 

• 464 monochrome (2 housses). 140 F 

• 6128 couleur (2 housses). 145 F 

• 6128 monochrome (2 housses). 145 F 

• DISQUE DD1 (1 housse). 45 F 

• IMPRIMANTE DMP1 ou DMP2000 (1 housse) 80 F 


VIDÉO DIGITAUSEURS (hard - soft) 

ATARI ST (256X256). 2490 F 

ATARI ST PRO (512X256). 3490 F 

COMMODORE 64/128 (image de 37 K).. 1490 F 
AMIGA (nous consulter). 



â y est, IL EST LÀ !!! 


KING QUEST II. 450 F 

SEVEN CITIES OF GOLD. 450 F 

TEMPLE OF APSHAI. 390 F 

... et bien d’autres à venir! 


REVUES : AMIGA WORLD.60 F 


AMIGA 


DEJA DES JEUX POUR AMIGA 

ARCHON. 390 F 

ARTIC FOX. 390 F 

BRATACAS. 390 F 

HALLEY PROJECT. 450 F 

MONKEY BUSINESS. 250 F 

ONE ON ONE. 390 F 

ROGUE. 390 F 

SKY FOX. 390 F 


et pour exploiter votre AMIGA 
à fond la caisse 

HYPER MUSCLEZ-LE !!! 

2 MÉGABYTE d’extension RAM. 
MICROSHARE AX 2000 (de COMSPEC, 
CANADA). A vous la LIBERTÉ pour 8450 F. 


Vive les vacances ! 

RUN vous propose ses OFFRES D’ÉTÉ 
(à dés prix canon!). Demandez la liste 
(joindre 4 francs en timbres). Vous y 
trouverez des promos incroyables! 


BON DE COMMANDE à découper et à renvoyer à 


dép* VPC - 62, rue Gérard - 75013 Paris 


□ Envoyez-moi la liste des offres d'été (je joins 4 F en timbres) 

□ Je désire recevoir votre documentation matériel ci-dessus, 

□ ou votre super catalogue “COMMODORE".12 F 

□ ou votre super catalogue “AMSTRAD”.12 F 

□ ou votre super catalogue “ATARI”.12 F 

Remboursement à la 1 re commande. 


Ci-joint mon règlement par chèque bancaire □ ou CCP □ Port + 
Frais de port (France métropolitaine) : Logiciels 15 F, par Livre 12 F, 
Matériel par SERNAM160 F. Sup. pour contre-rembours’ 30 F. 


SIGNATURE : 

Signature des parents pour les moins de 18 ans 


Je préfère régler 

par carte de crédit bancaire 

n° de carte 


Expire à fin —■/— 

Date de commande : 
Signature obligatoire : 


CREDIT CETELEM Tous les prix com P renn ent la TVA. 

Je choisis la proposition HT [IJ- U- @J- IJ - U- [7] Mettre une croix indiquant 
l’option choisie. Veuillez me faire parvenir une offre préalable de CRÉDIT CÉTÉLEM. 

Je joins les pièces demandées pour son établissement et mon versement comptant 
sera de . F par □ chèque □ CCP □ Mandat-lettre 


SS yz 


S-S'^Sé^esan- 
?î ye ,:.rf,fica« de votre I 
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CONNECTION ! 


M XTELX sur cassette ou 
disquette permet de 
relie' votre ordinateur 
MSX au Minitel au moyen d'un 
câble fourni avec le pro¬ 
gramme. MXTELX comporte 9 
routines en langage machine 
exécutables à partir du Basic. 
Permet de se débarrasser des 
problèmes de gestion hard¬ 
ware de ligne. Très intéressant 
mais tout reste à faire. Moins de 
600 F. Distribué par Audiosonic 
France. 103-115, rue Charles Mi¬ 
chels. 93203 St-Denis Cedex 1. 

• Le mardi 8 juillet de 14 n 30 à 
16 h, aura lieu à l’auditorium de 
la Fnac Montparnasse une 
«découverte gratuite» de l'or¬ 
dinateur musical CX5 Yamaha. 


PERIPHERIQUES 
ET CIE 


Lecteur de disquette 3"5 sup¬ 
plémentaire double face chez 


Sony FIBD 30W (ah, les réfé¬ 
rences Sony...). Prix: 2 108 Fht. 
Pour raccorder la chose à 
l’unité centrale, il est nécessaire 
d'avoir un câble. Il existe, je l'ai 
rencontré. Il existe même en 
deux versions, avec contrôleur 
pour 834,75 F ht et sans 
contrôleur pour 244,50F ht. 

Toujours chez Sony, une car¬ 
touche comprenant 'im.erface 
RS232 et se nommant HBI 
232C (toujour ces références 
Sony si poétiques). Son prix: 
835 Fht. 


CASSETTES, 

DISQUETTES 


Infogrames a transformé le jeu 
Las Vegas, qu’on pouvait trou¬ 
ver pour T09 l'a amé ioré en lui 
rajoutant des tableaux et l'a re¬ 
baptisé L’héritage pour en 
faire une version adaptée à 


MSX. Le scénario reste le 
même : une course à travers les 
dangers pour toucher l’héritage 
colossal d'une tante. 

Bridge, chez Infogrames, per¬ 
met au débutant de s’initier e; à 
l'expert de s'améliorer en se 
mesurant à un partenaire parti¬ 
culièrement patient: le micro 
MSX. Au niveau des annonces, 
le logiciel intègre sept conven¬ 
tions officielles reconnues par 
la plupart des joueurs : majeure 
5 e , Stayman, Blackwood, Ger- 
ber, 2 trèfles forts, 1 sans atout 
fa ble, Jacoby, 2 sans atout à 
11-12 points. Une fois la partie 
terminée, le joueur peut la revoir 
en entier en regardant le jeu 
des adversaires. 

Ces deux logiciels sont disoo- 
nibles sur cassette et disquette. 
Ils existent aussi tous deux pour 
Amstrad. 


CHEZ 

LE LIBRAIRE 


Programmes pour MSX, 

chez Cedic/Nathan, par Serge 
Pouts-Lajus et Pierre Cham¬ 
peaux, est un recuei de vingt 
programmes sur MSX. Pour ai¬ 
der le lecteur à créer ses pro¬ 
pres programmes en utilisant 
les possibilités graphiques et 
sonores de sa machine, un dic¬ 
tionnaire des mots clés du Ba¬ 
sic MSX est joint. Prix : 79 F 


COURRIER 


MSX et CP/M 

Le MSX n'est pas très élcigné 
de CP/M Adapter des pro¬ 
grammes r ournant sous C D /M 
à un MSX ne devrait oas poser 
beaucoup de difficultés pour 
les développeurs. D'ailleurs, on 
trouve par-ci par-là, sous le 
manteau, les utilitaires habi¬ 
tuels de CP/M (ED, PIP...) des 
programmes comme Dasell, 
Wordstar., le tout sous MSX- 
DOS. Pourquoi personne re 
propose-t-il officiellement ces 
programmes, hormis Spectra- 
vidéo qui tourne directement 
sous CP/M en 5 pouces 
comme en 3" 1/2. Le parc des 
MSX avec drive est-il insuffi¬ 
samment développé. A l'heure 
où l'on trouve des machines 




Pour s’initier ou se perfectionner au Brid 


MSX 64 Ko à moins de 1 000 F 
et des configurations complè¬ 
tes à des prix comparables à 
ceux pratiqués par Amstrad 
(qui travaille sous CP/M, rap- 
pelons-le), pourquoi ne nous 
donne-t-on pas accès à cette 
formidable bibliothèque de 
programmes tournant sous 
CP/M. Les MSX2 vont-il chan¬ 
ger cet état de fait. J’ai entendu 
parler d’MSX3. Qu’en est-il? 
Jean Cohen 

Apparemment, il s'agit pour les 
constructeurs, plus d'imposer 
un standard (une sorte de MS- 
DOS version familiale) que d'uti- 
Tser les possibilités du vieux 
CP/M. En revanche, en ce qui 
concerne le passage de pro¬ 
grammes de CP/M vers MSX- 
DOS, il faudrait poser la ques¬ 
tion à chaque distributeur. Bor¬ 
land a d'ailleurs adapté son 
T urbo-Pascal (sans avoir jamais 
vu une machine MSX, paraît-il). 
J’en profite pour signaler une er¬ 
reur de prix dans le numéro 7 de 
Micro-VO. Le Turbo-Pascal sur 
MSX vaut 800 F en France. 
D'autres programmes seraient 
(sont) déjà adaptés, mais il 
semble que les éditeurs hésitent 
encore. MSX2 va sûrement lever 
ces hésitations, en effet les deux 
machines sorties actuellement 
(Philips et Sony) ont le lecteur de 
disquette et permettent de tra¬ 
vailler en 80 colonnes, ce qui est 
ta condition minimale pour vrai¬ 
ment travailler. En ce qui 
concerne MSX3, nous, nous 
avons entendu parler 
d'MSX14(!). En fait MSX3 n'est 
pas encore défini au niveau des 
grands constructeurs. Alors, 
Waiîand See... 




























BONNES 

FICELLES 


Certains d’entre vous ont buté 
sur le signe \ (slash inversé) 
dans certains listings. Il s’agit 
d'un opérateur qui donne le 
nombre entier résultant de la di¬ 
vision d'un nombre par un au¬ 
tre. Ex. : 10 \ 3 = 3 (je ne sau¬ 
rais trop vous encourager à lire 
vos docs). Sur MSX ce signe 
n'est pas toujours facile à trou¬ 
ver. D’autre part un deuxième 
signe lui ressemble beaucoup 
(il est un peu plus haut). 


Autophage 

Un oetit programme qui se mo¬ 
difie lui-même. Le programme 
modifie directement le contenu 
de a zone FS dans la ligne de 
programme. Exercice de 
style? Peut-être, mais cela 
présente plusieu's intérêts. 
D’abord comprendre comment 
fonctionne VARPTR. Puis dé¬ 
montrer qu'un littéral initialisé 
dans le programme n'est pas 
réécrit dans la zone littérale. En 
effet les variables alphanumé¬ 
riques (string) sont adressées 
par l'intermédiaire d'un poin¬ 
teur qui indique l'emplacement 
réel du texte. CARPTR donné 
l'adresse du pointeur de varia¬ 
ble. Si la variable est initialisée 
dans le programme, il est lo¬ 
gique qu'il pointe vers le pro¬ 
gramme lui-même. Une fois 
que l'on connaît cette adresse, 
il est facile de modifier par des 
POKE appropriés, la ligne Ba¬ 
sic elle-même, à condition de 
ne pas dépasser la longueur de 
la ligne. On pourrait même mo¬ 


difier des instructions. Mais là, 
c'est déjà plus complique. En 
effe: les instructions Easic ne 
son: pas écrites littéralement 
(PRINT n'est pas codé P R I N 
T). Elle sont remplacées par 
des cocesappellés token, d'un 
(ou deux) octets au moment de 
l'introduction de la ligne en mé- 
moi'e. Le token est décodé au 
moment de l’affichage des li¬ 
gnes. L’introducton de l'ins¬ 
truction REM en est la démons¬ 
tration. 

La Igné 10 est modifiée. Mais 
on remarquera que la longueur 
de FS ne change que lorsque 
l'on fait réexécute' cette ligne. 

1 ’ SiTE'KOOSTl.B&S 

2 GOTO 190 

io rs=’. 


20 lïTOlI 

100 CLIU 1000:CLS 

110 1E$=CH1$(143) TOI» DE IEI 

120 GOGH 10 

130 LIVEIIPOT '!$=*;!$ 

140 lS=ES+CHS(34)-":'+lES 
150 P=T11PTK(F$) ' POIITEW 
160 1=PEEI(P+l)+25i*PEEI(P+2) 

’ 1DD1ESSE DO IITTEIIL 
170 FOI 1=1 TO lei:k$) 
no poie i+i-usc:iiDSii$,i,in 

190 IEIT I 

200 P1IIT ’LIGIE 2*0: ";F$ 

210 GOSOB lOtPIimiGI! 210: 'F 
S 


Un petit truc dont les heureux 
possesseurs de MSX2 se sont 
peut-être rendu compte : après 
avoir apouyé sur la touche Re¬ 
set, la mémoire n'était pas tou¬ 
jours « nettoyée ». Rien de plus 
facile pour y remédier, il y faut 
simplement un peu de pa¬ 
tience. Appuyez sur la touche 
Reset et laissez longuement 
votre doigt sur la touche susdite 
et tout rentre dans l’ordre. 


Al Khawarismi 


Envoyez-nous vos ficelles. 
Il y aura des cadeaux. 


FM Voîcing pour Yamaha 


Super, Eric Lejeune, cui com¬ 
mente lui-même ses sons. 
Nous, on n’a plus qu'à les 
écouter. Merci. 

Colette a encore frappé. Elle a 
oerdu le nom ce celui qui nous 
en envoyé LIT BOX et BACH. 
Elle est punie. 

Phazmog : permet d'avoir des 
basses qui s'étendent, du solo 


et éventuellement des accords 
de fond. 

Bizar 02: à jouer en accords 
plaqués pour son d'ambiance 
«fantastique». 

Japan L: asiatique. 


Berthe Ma valet 
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UN 

TRAN-WAY! 


P lus de problèmes de dis¬ 
quettes 3”. Amstrad 
France a servi en mai 
toutes ses commandes, livrant 
364 000 pièces à ses clients, 
se payant le luxe de conserver 
120000 disquettes en stock. 
Et les livraisons continuent. La 
seule question que se pose en¬ 
core Amstrad est en rapport 
aux besoins normaux du mar¬ 
ché. Après une aussi longue 
période de désorganisation, 
nul ne peut savoir avec exacti¬ 
tude quels sont les besoins 
mensuels normaux. 


D’autant que, profitant de cette 
désorganisation, Tran s'im¬ 
misce dans la belle mécanique 
Amstrad avec ses lecteurs de 
disquette 5"25. Nous vous an¬ 
noncions le mois dernier la sor¬ 
tie du drive Jasmin AM5D. Son 
prix est encore moins élevé que 
celui que nous vous avions 
donné, puisqu'il n'est que de 
1699 F ttc. Sa capacité (500 
Ko) est déjà dépassée carïran, 
sur sa lancée, commercialise 
maintenant le Jasmin 
AM5D +, un lecteur de dis¬ 
quette 5"25 double face d'une 


capacité de 1 Mo. Son prix: 
1899 F ttc. Le câble de raccor¬ 
dement indispensable pour les 
CPC 664 et 6128 coûte 165 F 
ttc, et non 95 F, comme nous 
l'annoncions à tort. 


PERIPHERIQUES 
ET CIE 


B.Y. Informatique distribue des 
logiciels sous le nom de BYSoft 
et toute une série de connec¬ 
teurs pour Amstrad. Il met en 
vente ce mois-ci un doubleur 
de joystick qui se fixe dans le 
port manette de jeu des CPC. 
Les amateurs de jeux pourront 
désormais jouer à deux sans 
avoir à se passer continuelle¬ 
ment le joystick. Son prix, abor¬ 
dable, n'est que de 140 F. 

Les possesseurs de PCW 
8256 peuvent protéger leur 
machine des poussières et des 
éclaboussures, sans parler du 
regard des jaloux, avec les 
housses (pour moniteur, clavier 
et imprimante) que leur pro¬ 
pose B. Y Informatique. Le tout 
pour 350 F. 

Une imprimante spéciale Ams¬ 
trad AM Printer, qualité cour¬ 
rier, 50 caractères par se¬ 
conde, 132 colonnes, est dis¬ 
tribuée par Tran, encore lui, 
pour 1995 F. 


CASSETTES , 
DISQUETTES 


Calcumat est un tableur gra¬ 
phique de grande qualité, avec 
menus déroulants et fenêtres à 
la Mac. Compatible avec 
Textomat (traitement de texte) 
et Datamat (base de données). 
Chez Micro Application, pour 
toute la série CPC, sur dis¬ 
quette : 450 F. 

Générateur d’application - 
Gestion de fichier, un logiciel 
qui nécessite d'abord l'acqui¬ 
sition de DBasell, est un utilitaire 
indispensable à ceux qui veu¬ 
lent gérer un fichier sans avoir à 
se plonger dans la program¬ 
mation spécifique de DBasell. 
Livré avec un manuel de 169 
pages (le manuel d'apprentis¬ 


sage de DBasell fait 500 
pages). Pour CPC 6128 et 
PCW, chez BYSoft, son prix est 
de 490 F. 

Rythmamus/Astromus, dont 
nous avions dit tant de bien lors 
de sa sortie sur matériel Thom¬ 
son (voir Micro V.O. N° 4), est 
maintenant disponible sur 
Amstrad. Il s'agit de jeux musi¬ 
caux éducatifs pour enfant, que 
nous ne saurions trop conseil¬ 
ler. 

Editeur: Logimus. Prix: 250F 
sur disquette, 230 F sur cas¬ 
sette. 

Du même éditeur, Dadi's Gui- 
tar, sur disquette pour 350 F. 

Speedy Wonderest un com¬ 
pilateur Basic, qui autorise la 
compilation de programmes 
Basic jusqu'à 25 Ko, accélérant 
ainsi leur exécution. Toutes les 
instructions du Basic Amstrad 
sont acceptées (sauf LOAD et 
MERGE). Un fort manuel guide 
l'utilisateur. Disponible pour 
CPC 464, il devrait l'être bientôt 
pour 664 et 6128. Edité par Mi¬ 
nipuce au prix de 195 F en ver¬ 
sion cassette et 250 F en ver¬ 
sion disquette. 

Cobra Soft édite maintenant 
des logiciels pour PCW: six 
d'un coup en quatre disquet¬ 
tes. Genecar, un programme 
de graphisme utilisant la tech¬ 
nique de redéfinition des ca¬ 
ractères, Am-Stram-Dames, 
un jeu de dames à 7 niveaux, 
Force 4 et Mission Detector, 
deux ieux de réflexion pour 1 
ou 2 joueurs, Graphologie et 
Biorythmes, deux simili-utili¬ 
taires aux titres assez explici¬ 
tes. Chaque disquette coûte 
199 F. 

Un nouveau venu dans la fa¬ 
mille des éditeurs de logiciels, 
Editions MC 2 (48, rue du Fau¬ 
bourg du Pont-Neuf, 86000 
Poitiers), entame sa carrière par 
un doublé: deux logiciels sur 
une seule disquette pour tous 
les CPC. Le premier, Villa Mé- 
dicis, est un logiciel d’aide à la 
création graphique aux fonc¬ 
tions multiples. Les images 
créées peuvent être intégrées 
par la suite dans un programme 
Basic. Le second, Syrinx, est 
un logiciel d’aide à la création 
musicale en trois modules: 
création des sons, transforma¬ 
tion du clavier Amstrad en cla¬ 
vier musical avec possibilité de 
boîte à rythme (jeu libre ou 


!§ ASTROK/IUS 


RYTHMAMUS 



. 4 ' 



O VNI musicaux et foire aux rythmes pour ces deux jeux éducatifs... 
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FABRICE IBMÀilNQUE 



Villa Medicis et Syrinx : gra¬ 
phismes et sons. Deux logi¬ 
ciels sur une même disquette. 


composition) et sonothèque 
(gestion des sors, mélodies et 
rythmes créés avec possibilité 
de sauvegarde et de réutilisa¬ 
tion dans un programme Ba¬ 
sic). De quoi taire rêver les pro¬ 
grammeurs en herbe. La dis¬ 
quette : 255 F. Existe aussi sur 
cassette pour CPC 464 au prix 
de 221 F. 


CHEZ 

LE LIBRAIRE 


Pour les vacances, vous avez le 
choix car il y a un gros arrivage 
et vous ne vous ennuierez pas 
pendant les longues soirées 
d'été. 

Programmes pour Ams¬ 
trad, par Xavier Cador et Sté¬ 
phane Houet, chez Cedic/Na¬ 
than, est un recueil de 12 pro¬ 
grammes en Basic et Assem¬ 
bleur pour tous les CPC. 
Chaque listing est commenté 
en détail. Les possibilités de 
modifications et d'améliora¬ 
tions sont donc nombreuses. 
Prix: 89F. 

Programmes et applica¬ 
tions éducatifs sur CPC, 

chez Micro Application, est 
aussi un recueil de program¬ 
mes prêts à l'emploi. Son but 
est pédagogique. Après une 
introduction au Basic, toute une 
série de programmes com¬ 
mentés (avec analyses et orga¬ 
nigrammes) se propose de ré¬ 


soudre des problèmes de ma¬ 
thématiques, chimie, physique, 
biologie, économie. Les lan¬ 
gues, l'écologie, l'histoire et la 
géographie sont elles aussi 
abordées. Ce livre s'adresse 
bien sûr plutôt aux éducateurs 
et aux étudiants, mais les es¬ 
prits curieux et avides de 
connaissance y trouveront leur 
bonheur. 300 pages. Prix: 
179 F. 

Chez Micro Application, Sys¬ 
tèmes de transmission sur 
CPC (199 F), Le grand livre 
du Basic pour le CPC 6128 
et Le livre de l’Amstrad PCW 
(179 F). 

Chez P.S.I., quatre nouveaux li¬ 
vres pour les CPC : 

Graphismes en Assembleur 
sur Amstrad CPC, par Fran¬ 
cis Pierot, ne désorientera pas 
les débutants en Assembleur 
puisqu'un chapitre d'initiation 
leur est consacré. Pratique 
pour l’illustration de jeux de rôle 
ou d'aventure. 195 pages. 
Prix: 145 F. 

Création et animations gra¬ 
phiques sur Amstrad CPC, 

par Gilles Fouchard et Jean- 
Yves Corre, vous propose de 
créer des images à l'aide de la 
souris et du joystick, puis de les 
animer pour réaliser des ban¬ 
des dessinées. Les program¬ 
mes sont en Basic et en As¬ 
sembleur Z80. 120 pages. 
Prix: 110F. 

Amstrad en musique, par 

Daniel Lemahieu. est un ou¬ 
vrage en trois parties. La pre¬ 
mière familiarise avec le syn¬ 
thétiseur sonore programma¬ 
ble, la deuxième aide à la tra¬ 
duction des partitions musica¬ 
les et la troisième donne des 
techniques pour transformer 
l'Amstrad en instrument de 
musique. 236 pages. 165 F. 

Trois étapes vers l’intelli¬ 
gence artificielle, par René 
Descamps, est une introduc¬ 
tion à l'intelligence artificielle. 
Vous aurez la possibilité de 
comprendre les systèmes ex¬ 
pert et les stratégies de jeux 
grâce à de nombreux exem¬ 
ples et à 27 programmes en 
Basic. 275 pages. 160 F. 


Jean-Loup Renault 


ACT 1 

Gestion de fichier 
pour PCW 


Une entreprise sans fichiers 
(clients, fournisseurs, produits, 
prix, etc.) est comme un ordina¬ 
teur sans logiciel. Act 1 est en 
fait un peu plus qu'un gestion¬ 
naire de fiches car une calcula¬ 
trice et un agenda y sont incor¬ 
porés. 

Chaque fiche est constituée de 
10 zones ayant chacune un 
en-tête facilitant les recher¬ 
ches. Des lignes complémen¬ 
taires de renseignements sont 
disponibles et peuvent être 
liées à l'agenda. Les recher¬ 
ches s'effectuent parmi toutes 
les zones selon les critères dé¬ 
finis par l'utilisateur. Il est possi¬ 
ble de faire des recherches sur 
un mot ou un signe. L'intérêt de 
la chose est qu'il suffit d'intro¬ 
duire un mot clé significatif 
dans certaines zones pour ob¬ 
tenir les fiches désirées. Lors 


de la saisie, on inscrit par 
exemple MP à côté du nom des 
mauvais payeurs. En recher¬ 
chant par la suite le mot MP 
dans toutes les fiches, on 
pourra aisément mettre en 
branle un système de relance, 
surtout si ces relances sont 
liées au fichier agenda. 

Ce fichier agenda, tout comme 
la calculatrice, est appelable à 
tout moment. Des rendez-vous 
pris à des dates différentes 
pourront ainsi être rappelés 
tous ensemble à la date voulue. 
Act 1 est loin d'être parfait mais, 
comme il existe DBase II et 
DBase III, gageons qu'il y aura 
dans le futur un Act II. 

Prix: 680Fh.t. 

Editeur: Loglcys (centre Eme¬ 
raude -61 / 69, rue Camille Pel- 
letan, Cedex 47, 33150 Ce- 
non). 


Version l.A 


GESTION FICHES AGENDA 




91 FEVHES 1586 

IiEËSB!F^ 

R.V pour traitaient de 
la vigne avec Monsieur 
Dupont 

R.V avec Monsieur Durand 
à non bureau i 12b36 


I>l*phones 


Chateau X:S6 89 74 23 

TZL:56 MMM 


Pr 


Version l.A 

GESTION FICHIER PRINCIPAL 

HH 




■imatniM RECHERCHE EDITION consultation calcul 

No de FICHE 
Non 

Adresse 

suite 

ville 

code postal 
Qualité 

Date Entrée 
Date sortie 
Chiffre aff 


SHEI ou ALI + Fl 
Pour Choisir le t 
RETUM pour exécu 


R.V 
à lfi 


lignes conplénentaires libres. 


A noter la sortie d'un produit 
télématique sur PCW, VT Link, 
composé d'un logiciel, d'un boî¬ 
tier et d’un câble de raccorde¬ 
ment. Il permet de connecter le 
PCW sur le réseau téléphonique 
par l’intermédiaire du Minitel, de 


l'ouvrir sur les services Vidéotex 
et de transférer des fichiers. 
Editeur: Loisitech (83, av. Faid- 
herbe - 93106 Montreuil Ce¬ 
dex). 

Prix : environ 1 400 F (un peu 
cher!). 
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TARI 


■LOGICIEL 
(SANS NUAGES) 


PERIPHERIQUES 
ET CIE 


Atari France propose une im¬ 
primante pour Atari ST, la 
SM M804. Il s'agit d'une impri¬ 
mante matricielle à impact, bi¬ 
directionnelle à 9 aiguilles. Sa 
vitesse d'impression est de 89 
cps (caractères par seconde). 
L'ertraînement du papier se fait 
par picots ou par friction. Elle 
fonctionne sur nterface 8 bits 
parallèles, comoatible Centro¬ 


nics. Son prix : 2 490 F. Pour se 
procurer le câb e de raccorde¬ 
ment, il faudra débourser 
279 F. 

La souris Atari n'a de souris que 
le nom. Il est possible de lui en 
donner l'aspect avec Mouse 
house, un cache-souris tout 
poilu avec des moustaches et 
des petits yeux noirs en tête 
d'épingle, très doux sous la 
main. Prix: 110F. 

Plus sérieux. Eprom Bumer, 
fabriqué par Flippopotamus 
Software, est un programma¬ 
teur d'Eprom. Il existe aussi 
pour Amiga et PC. Prix : 1 S90 f. 



ATARI 520 ST 

requîtes 
coter monitor 
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CASSETTES 

DISQUETTES 


Utilitaires ou jeux, Atari tient tou¬ 
tes ses oromesses quant au 
nombre de logiciels pour le ST. 
Alt rend possible l'utilisation de 
la touche ALT couplée avec 
une lettre ou un chiffre pour 
programmer une commande 
ou une phrase. Edité par Mich- 
tron. Prix: 475F. 

Deskmaster, édité parStartro- 
niks, ur utilitaire pour le bureau, 
comprend une calculatrice, un 
agenda, un mini gestionnaire 
de fiches. Il permet aussi de 
sauvegarder des écrans sur 
disquette. Prix: 390F. 

Macro Desk est composé lui 
aussi d'une calculatrice, d'une 
horloge/calendrier faisant of¬ 
fice d'agenda et d'une petite 
base de données. Edité par 
Blue Moon Soft. Prix : 280 F. 
Allez, un dernier pour le bureau. 
Corner man est doté d'un 
agenda, d'une calculatrice 
évoluée (calcul décimal, hexa¬ 
décimal, conversions) et. pour 
se délasser, d'une série de pe¬ 
tits jeux. Prix: 270F. 
Typesetter ST est un utilitaire 
de composition de texte avec 
fontes diverses et mise en 
page. Edité par XLent Software. 
Prix: 410F. 

Les programmeurs, ceux qui 
aiment fou'rer leur nez à l'in¬ 
térieur de la machine, ne sont 
pas oubliés. Une série d'Jtility 
kits est éditée par Beckemeyer 
Develooment Tools Micro C 
Tools: 245 F Micro make: 
345 F. Micro C Shell: 565 F. 
Les professionnels de la pro¬ 
grammation et les étudiants ti¬ 
reront profit du logiciel Fortran, 
qui fait partie de la série «Lan- 
guages for microcomputer pro- 
fessionals chez Prospéra 
Software. Prix: 1 750F. 

Les art s'es peuvent utiliser les 
possibilités graphiques du ST 
avec CAD-3D. Le dessn en 
trois dimensions, solide ou fil de 
fer. peut y être éclairé par des 
sources de lumière multiples et 
une animation des images est 
prévue. Edité par Antic. Prix: 
469 F. 

Quelques jeux pour termirer en 
beauté. 

Bridge 4.0 devrait contenter 
les amateurs puisqu'il est édité 


pa' un spécialiste des jeux de 
cartes, Arworx. Prix: 350F. 
Mom and me et Murray and 

me sont deux logiciels de jeu 
en anglais pour les enfants et 
peuvent servir à l'apprentis¬ 
sage de la langue. Edité par 
Antic. ils coûtent chacun 385 F. 
On va maintenant faire saliver 
ceux qui font leurs dél ces des 
jeux d'aventure. 

Inspiré des bandes dessinées 
«Marvel adventures», Quest 
Probe met en scène la Torche 
humaine et la Chose. Edité par 
Acventure International. Prix: 
186 F. 

Le fantastique fournit la trame 
de Gateway, une porte ou¬ 
verte vers d'autres mondes à 
explorer. Edité par Pryority Soft¬ 
ware. Prix: 450F. 



L'aventure spatiale et la décou¬ 
verte des planètes sont au ren¬ 
dez-vous avec Sundog, le 
chien de garde du ciel. Edité 
par FTL Zoom Action. Prix: 
450 F. 

Telarium, qui s'est déjà distin¬ 
gué par l’édition de log ciels sur 
C64, s'intéresse à Atari ST. De 
prestigieux auteurs de 
science-fiction, Roger Zelany, 
Erle Stanley Garner et Michaël 
Crichton, ont mis les personna¬ 
ges de leurs romans sur dis¬ 
quette pour donner le jour res¬ 
pectivement à Nine princes in 
Am ber, Perry Mason et 
Amazon. Chaque jeu au prix 
de 469 F. 

Si vous ne trouvez pas ces logi¬ 
ciels chez votre distributeur ha¬ 
bituel, ils sont tous disoonibles 
chez Run Informatique. 


Jean-Loup Renault 















IMIIORE 


AMIGA 
BOUT FILTRE ! 


M algré le bel optimisme 
affiché par Commo¬ 
dore France, qui se 
montre très satisfait de son chif¬ 
fre d'affaires, la situation est 
nettement moins reluisante au 
niveau mondial. Aux Etats- 
Unis, les chiffres annoncés 
pour le premier trimestre 1986 
sont loin d'être encourageants 
(perte de plus de 36 millions de 
dollars malgré une progression 
de 8 % du chiffre d’affaires) et 
la moitié des employés de 
Commodore vient d'être mis au 
chômage. En effet, l'Amiga 
n'obtient pas outre-Atlantique 
le succès escompté, à tel point 
que, pour pousser les ventes, 
son prix a été baissé de 39 %. 
Certains augures prévoient que 
cette baisse de prix atteindra 
l'Europe avant la fin de l'année. 
Ceci dit, l'Amiga est enfin distri¬ 
bué en France. Les retards 
qu’on a pu constater sont dûs 
au trop grand succès de la ma¬ 
chine en Allemagne, où se si¬ 
tue la chaîne d'assemblage. 
Evidemment l'Allemagne, 
siège européen de Commo¬ 
dore, s'est servie en priorité. 
Mais l'Amiga est là. D'ailleurs, 
comme- pour manifester sa 
confiance en l'avenir, Commo¬ 
dore a organisé une réunion 
avec les développeurs français 
le 26 mai au Jockey club. Le 
prix de 'Amiga est confirmé à 
16300Fht 

On va b-entôt trouver partout le 
C64 new look, es revendeurs 
cherchent à se débarrasser de 
leur stock d'anciens modèles. 
A vous de discuter des prix si 
votre revendeur n'a pas pris de 
lui-même l'initiative de les bais¬ 
ser. Mais en mai, il était déjà 


possible de trouver ces C64 
pour 1 600 F. 

Quant à ceux qui veulent s'offrir 
le Cl28, ils recevront dé¬ 
sormais avec la machine deux 
logiciels intégrés. Le premier, 
Super Jane, est ur traitement 
de texte utilisant un système 
d'icônes, et le second, Tap 
128, aide à la maîtrise du'cla¬ 
vier. L'ensemble de ces deux 
logiciels transforme les claviers 
QWERTY en claviers AZERTY. 


PERIPHERIQUES 
ET CIE 


Digiview est un digitaliseur 
d'image qui, à partir d'une ca¬ 
méra noir et blanc, reconstitue 
à l’écran une image couleur. 
L’ensemble, qui fonctionne sur 
Amiga, est composé d'une in¬ 
terface, de trois filtres et d'un lo¬ 
giciel. Il faut, pou r obtenir une 
image digitalisée en couleur, 
sauvegarder trois fois la même 
image - sur trois fichiers diffé¬ 
rents - prise chacune avec 
l'un des trois filtres à l'aide 
d'une caméra vidéo fixe. Il faut 
ensuite charger les trois fi¬ 
chiers; il est alors possible de 
travailler cette image avec un 
logiciel tel De Luxe Paint Digi¬ 
view est distribué en France par 
B.G. Diffusion au prix de 
2520 Fht 


CASSETTES, 

DISQUETTES 


Les logiciels pour Amiga arri¬ 
vent en même temps que la 


machine. B.G. Diffusion (16,18, 
rue de la Mouche, 6S540 Iri- 
gny) se spécialise dans l'im¬ 
portation des logiciels utili¬ 
taires. Une série Aegis travail e 
plus particulièrement l image : 
Draw (1670 F ht, Images 
(729 F ht) Animator (1210 F 
ht), Impact (1670 F ht) et Art- 
pak (699 F). 

Une autre série est plus spécifi¬ 
quement utilitaire : Analyze, un 
tableur (899 F), Online, un lo¬ 
giciel de communication 
(660 F), Gizmoz, une calcula¬ 
trice perfectionnée (545 F), Mi- 
Amiga, une base de données 
(899 F). Future Sound, livré 
avec câble et microphone, per¬ 
met la digitalisation du son 
(1830 F). 

Chez Run Informatique, Gra¬ 
phie Expander, pour Cl28, 
ajoute des commandes Basic 
permettant l'utilisation directe 
de la résolution graphique 640 
x 200 (80 colonnes) et ceci 
quatre fois plus rapidement 
que le mode graphique 40 co¬ 
lonnes. prix :150F ttc. 


CHEZ 

LE LIBRAIRE 


Programmer en assem¬ 
bleur sur Commodore 64. 

chez Cedic/Nathan, par Bruce 
Smith, est une initiaiion pro¬ 
gressive à l'Assembleur sur 
C64. C'est dire que les débu¬ 
tants seront comblés. Ceux qui 
connaissent déjà pourront ma - 
gré tout y trouve' des program¬ 
mes en mnémoniques ou en 
données DATA. Prix: 129F. 


Rie Forster 


BONNES 

FICELLES 


Double balayage 


3 POKE 53280,6: POKE 53281,6 

4 PRINT CHR*(5) :PRINT 0**11471 

5 B=271 :CS=0 :C=27 

6 POKE 214,IliPRINTsPRIHT TABI9) 
"OCTETS A CHAR6ER :* 

7 FOR 1=49152 TO 49423:READ A:PO 
KE1,A:CS=CS+A 

8 POKE 214,11:PRINT:PRINT TABIC! 
B 

9 B=B-1:IF B=99 OR B=9 THEN C=C+ 


1 

10 NEXT I 

20 IF CS<>32190 THEN PRINT'ERREU 
R BATA':STOP 
30 SYS 49152 

49152 DATA 32,68,229,120,169,52, 
141,20 

49160 DATA 3,169,192,141,21,3,16 
9,127 

49168 DATA 141,13,220,169,1,141, 
26,208 

49176 DATA 173,17,208,41,127,141 
.17,208 

49184 DATA 169,255,141,IB,208,16 
9,1,169 

49192 DATA 2,133,156,133,251,169 
.0.141 

49200 DATA 32,208,88,96,173,25,2 
08,41 

49208 DATA 1,240,31,141,25,208,1 

98.156 

49216 DATA 16,4,169,14,133,156,1 

66.156 

49224 DATA 189,185,192,141,33,20 
8,141,32 

49232 DATA 208,189,200,192,141,1 
8,208,138 

49240 DATA 240,3,76,129,234,32,9 

9.192 

49248 DATA 76,49,234,162,2,254,2 
00,192 

49256 DATA 232,224,7,208,248,162 

, 8,222 

49264 DATA 200,192,232,224,13,20 
8,248,198 

49272 DATA 251,208,61,169,16,133 
,251,162 

492B0 DATA 0,189,215,192,157,200 
,192,232 

49288 DATA 224,14,208,245,173,18 
6,192,133 

49296 DATA 252,162,0,189,187,192 
,157,186 

49304 DATA 192,232,224,5,208,245 
,165,252 

49312 DATA 141,191,192,173,197,1 
49320 DATA 162,6,189,190,192,157 
,191,192 

49328 DATA 202,208,247,165,253,1 

41.192.192 

49336 DATA 96,0,2,3,4,5,6,7 
49344 DATA 8,9,10,11,12,13,0,0 
49352 DATA 255,234,218,202,186,1 
70,154,152 

49360 DATA 151,143,119,103,87,71 
,0,255 

49368 DATA 234,218,202,186,170,1 
54,152,151 

49376 DATA 135,119,103,B7,71,0,3 

2,2 

49384 DATA 1,12,1,25,1,7,5,32 
49392 DATA 4,5,32,3,15,21,12,5 
49400 DATA 21,18,32,32,13,1,14,6 
49408 DATA 18,5,4,9,32,32,32,4 
49416 DATA 15,13,9,14,9,3,15,32 


Dominico Manfredi 
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U IIISII 

DISQUES, COURS 
DE LA METHODE 


G râce à Assimil, il était 
possible d'apprendre 
l'anglais, l’allemand ou 
l'esoagnol sur M05 et T07-70 
avec un logiciel sur cassette et 
un livre d'accompagnement. 
Ce logiciel est désormais 
adaptable sur nanoréseaux 
équipés d’un serveur IBM et de 
postes Thomson M05 et éven- 
tuelement T07. D'autre part, 
une version adaptable au T09 
verra prochainement le jour. Le 
prix reste le même, c'est-à-dire 
510 F pour la fourniture du logi¬ 
ciel lui-même et du livre Assimil 
d'accompagnement 
Rappelons aux possesseurs 
de Minitel qu'ils peuvent, grâce 
à l'abonnement FUNITEL, avoir 
accès à un programme d'ap¬ 
prentissage de l'anglais. 


CASSETTES, 

DISQUETTES 


Infogrames nous communique 
une série de nouveaux pro¬ 
grammes de jeu pour le cébut 
des vacances d'été. 

Vampire, un jeu d'amade et 
d'aventure, met en scène un 
héros (le joueur) chargé de pé¬ 
nétrer dans un château pour 
délivrer une pr ncesse prison¬ 
nière. Une théorie d'obstacle 
se trouve sur sa route. L’ennemi 
principal est un vampire as¬ 
soiffé d'hémoglobine. Heureu- 
sement, les armes traditionnel¬ 
les anti-vampire (ail, épieu, 
croix) sont à la disposition du 



Vampirs (Infogrames). Le vampire contre-attaque. 
Vos armes: ail, croix, et épieu de bois. 


héros pour l'aider à se défaire 
de son adversaire. Sur dis¬ 
quette pour T 09, sur cassette et 
QDD pour M05 etT07-70. 
Super Androïdes II est un ap¬ 
prentissage au métier de cam¬ 
brioleur. Les empêcheurs de 
tourner en rond sont des robots 
perfectionnés et non pas, 
comme au bon vieux temps, 
des chiens de garde. _ogiciel 
d’arcade où la rapidité et l'intel¬ 
ligence sont mises à contribu¬ 
tion. Sur disquette pourT09. 
Dieux du stade II aoporte un 
plus à la première version du 
jeu : les personnages sont vus 
non plus ce profil mais en pers¬ 
pective en trois dimensions. 
Les compétitions proposées 
sont le 110 m haies, le lancer 
du javelot, le lancer du marteau 
et l’haltéroph lie. Le joystick 
souffrira moirs de l’épreuve 
puisque, pour avance' vte, il 
suffit d'avoir un mouvement ré¬ 
gulier car le logiciel est basé sur 
le système de phase. Sur dis¬ 
quette pour T09, sur cassette et 
QDD pour M05 et T07-70. 

En collaboration avec Cobra- 
soft, Infogrames propose un jeu 
d’aventure qui met les petites 
cellules grises du cerveau à 
contribution : Meurtre sur 
l’Atlantique. Il s'agit d'une en¬ 
quête compliquée avec qua¬ 
rante suspects, des incices, 
des.salles à visiter, des messa¬ 
ges à déchiffrer. Le décor un 
peu suranné est un paquebot 
traversant l'Atlantique en 1938. 
Un concours organisé par les 
éditeurs accompagne le logi¬ 
ciel qu'on trouve sur cassette 
pourM05 etT07-70 et sur dis¬ 
quette pour ~09. 


CHEZ 

LE LIBRAIRE 


Jeux prêts à l’emploi pour 
T07-70, chez Edimicro, par 
A. Perbost et G. Renucci, com¬ 
porte vingt listings de jeu (ha¬ 
sard, réflexion et action). 
Chaque listing est précédé 
d'explicariors bienvenues sur 
les techniques employées et la 
structure du programme, per¬ 
mettant a nsi à chacun, d'abord 
de comprendre, puis éventuel¬ 
lement de transformer chaque 
jeu pour l'adapter à ce que son 
imagination ui inspirera. Le 
premier chapitre, consacré aux 
techniques générales de pro¬ 


grammation des jeux, sera très 
utile à ceux qui, par manque 
d'expérience sont un peu fouil¬ 
lis. Il les aidera à mettre de l’or¬ 
dre dans eurs idées et dans 
leurs programmes 150 pages. 
145 F. 

Logo sans peine, auto-initia¬ 
tion à logo M05 et T07-70, 
chez Cède/Nathan, oar Vin¬ 
cent Dureau et Dominique 
Péré, est un kit composé d'un 
livre et de deux cassettes. Les 
deux cassettes regroupent 4 
programmes de niveau pro¬ 
gressif abordans les particulari¬ 
tés du logo. Le livre est là pour 
les explications et les exemples 
d'application. Il contient aussi 
un chapitre consacré à l'écri¬ 
ture des procédures. Le tout 
s’adresse au débutant ou à 
l’initié d'un niveau moyen. Prix: 
185 F (un livre et 2 cassettes). 


BONNES 

FICELLES 


Autophage 

Dans la série cohabitation 
Thomson et MSX, vous trouve¬ 
rez les explications de ce pro¬ 
gramme dans la rubrique MSX. 


1 ' SAVK’SODSTR 

2 GOTO 100 

10 P$=*. 


20 RETORI 

100 CLEAR 1000:CI>S 

110 RE$=CHR$(140) 'TORES DE REM 

120 GOSUB 10 

130 LIREIKPUT "F$=*;R$ 

140 R$=R$+CHR$(34)+":"+RE$ 

150 P=VARPTR(F$) 

160 A=PEEK(P+2)+256*PEER(P+l) 

170 FOR 1=1 T0 LEK (R$) 

180 PORE A+I-l,ASC(MID$(R$,I,1)) 
190 SERT 

200 PRIS! "LIGNE 200: ’F$ 

210 GOSUB 10:PRIHT "LIGNE 210: * 
P$ 


Jenny Lepetit 


Envoyez-nous vos ficelles. 
Il y aura des cadeaux. 
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■ IC 


ILE 

BIN » ERRE 


A h, ce Télestrat, en a-t-on 
parlé et reparlé depuis 
plusieurs mois. On sait à 
quci il ressemble au-dehors. 
On peut l'acheter maintenant 
dans les magasins. Nous vous 
promettons un banc d'essai 
dès qu'Eureka nous donnera le 
feu vert. 

Le serveur Oric (tél 42-81-22- 
72). qui répondait déjà aux 
questions concernant les tarifs, 
le catalogue, les ficelles... fait 
désormais une démonstration 
des capacités du Télestrat. Il 
s'agit plutôt d'ure auto-dé- 
rronstration puisque le serveur 
est dirigé par un Télestrat. 

Nouvelles: 

D’après Eurêka, Pascal Cusset, 
nouvelle recrue de cette so¬ 
ciété a des chances de devenir 
à une échelle moindre le nou¬ 
veau Steve Wozsniack dans la 
catégorie serveurs. C'est lui qui 
a en grande partie élaboré le 
programme Télématic, et à ce 
titre est chargé de la promotion 
du matériel Oric, de son assi- 
tance téléphonique pour les re¬ 
vendeurs, qui risquent d'être 
nombreux. 


CHEZ 

LE LIBRAIRE 


Programmer en langage 
machine sur Oric-Atmos et 
Oricl, chez Cedic/Nathan, 
par Bruce Smith, permet, à tra¬ 
vers des exemples simples, 
d'écrire des routines en lan¬ 
gage machine, de les stocker, 
de les exécuter et de les utiliser 
dans des programmes Basic. 
Prix : 95 F. 


BONNES 

FICELLES 


Dans l'avant dernier numéro, je 
vols proposais deux routines: 
l'une convertissait l’hexadéci¬ 
mal, l'autre le binaire. Malheu¬ 
reusement, - meaculpa, mea 
maximaculpa - elles n'étaient 
guère pratiques d'emploi. Mar¬ 
tyrisé par ma cor science im¬ 
placable, je vous livre la routine 
qui m'a torturé l’esprit pendant 
deux semaines. 

Ce programme ajoute une 
fonction au Basic de votre Oric. 
BIN (Adresse) permet de 
connaître la valeu r en binai'e à 
la case mémoire Adresse. Il 
existe cependant quelques 
restrictions: l'adresse doit for¬ 
cément compter 4 ca'actères 
(si ce n'est pas le cas, les ca¬ 
ractères manquants seront 
considérés comme des zéros), 
l’ad'esse doit être en hexadé¬ 
cimal, et l’on ne peut utilise' BIN 
qu’en mode direct. 

Pour ne pas avo r à utiliser le 
«!», à chaque interruption la 
routine vérifie qt’on n’a pas 
tapé BIN: cès qu’en (#) 208, 
on registre la valeur ( # ) AF (qui 
préviem de l’appui de Return), 
la routine lit le buffer(de # 35 à 
# 83). Si l’on a entré BIN, l’Oric 
range les valeurs entre paren¬ 
thèses de # 45C à # 45 F 
(45C prend pour valeur le pre¬ 
mier chiffre, =t= 45D le 

deuxième.. ), ensuite ces chif¬ 
fres sont groupés par deux là 
où commence la routine d il y a 
deux mois. 

Avant de pouvoir utiliser libre¬ 


ment votre routine, n'oubliez 
pas de faire POKE # 245 # 
1FFC, et de ranger à partir de 
l'adresse # 450 les codes AS¬ 
CII de BIN(. 

Détails du programme : 

ligne 1FFC à 2000: es varia¬ 
bles x, y et a sont empilées pour 
qu'après l'exécution du pro¬ 
gramme, l'interpréteur retrouve 
leurs valeurs initiales, 
ligne 2000 à 2008 : si la touche 
return a été frapoée, on conti¬ 
nue, sinon on va à la routine ce 
dépilement. 

ligne 200C à 202A: si l'in¬ 
terpréteur trouve les caractères 
BIN(, il passe à la suite, sinon il 
va à la routine de dépilement 
avec en plus des inst'uctions 
pour faire croire au buffer qu'on 
n’a rien entré. 

Ligne 202 E à 204F: l'ordina¬ 
teur transcrit les codes ASCII 
des lettres en cniffres. 

Ligne 2051 à 2060: les deux 
octets sont transcrits dans la 
routine mémoire. 

Ligne 2062 à 2096 : routine de 
conversion binaire. 

Ligne 2098 à la fin : on remet 
les pointeurs en place. 

Pour ceux qui ne possèdent 
pas de moniteur, il faut faire un 
programme qui mette en mé¬ 
moire les codes hexadécimaux 
précisés sur le isting 


11FFC-20A4 




1FFC: 

48 



PHA 

IFFD: 

98 



TYA 

!FFE: 

48 



PHA 

1FFF: 

8A 



TXA 

2000: 

48 



PHA 

2001: 

AE 

08 

02 

LDI $0208 

2004: 

EO 

AF 


CPI MAF 

2006: 

FO 

04 


BED $200C 

2008: 

4C 

9C 

20 

JMP $209C 

200B: 

EA 



HOP 

200C: 

A2 

00 


LDI MOO 

200E: 

BD 

50 

04 

LDA 40450.1 

2011: 

D5 

35 


CMP 435.X 

2013: 

DO 

F3 


BNE 42008 

2015: 

E8 



INX 

2016: 

C9 

28 


CMP M28 

2018: 

D0 

F4 


BNE 4200E 

201A: 

20 

2F 

20 

JSR 4202F 

201D: 

A2 

02 


LDX 1402 

201F: 

20 

51 

20 

JSR 42051 

2022: 

A2 

00 


LDX 1400 

2024: 

20 

51 

20 

JSR 42051 

2027: 

20 

62 

20 

JSR 42062 

202A: 

4C 

98 

20 

JMP 42098 

202D: 

EA 



N0P 

202E: 

EB 



INX 

202F: 

B5 

35 


LDA 435.X 


2031 

A0 

2F 


LDY 142F 

2033 

C9 

3A 


CMP M3A 

2035 

30 

03 


BMI 4203A 

2037 

A0 

36 


LDY 1436 

2039 

18 



CLC 

203A 

8C 

3E 

20 

STY 4203E 

203D 

E9 

36 


SBC #436 

203F 

8D 

57 

04 

STA 40457 

2042 

EE 

40 

20 

INC 42040 

2045 

E8 



INX 

2046 

E0 

0B 


CPX I40B 

2048 

DO 

E5 


BNE 4202F 

204A 

A2 

57 


LDX 1457 

204C 

8E 

40 

20 

STX 42040 

204F 

60 



RTS 

2050 

EA 



N0P 

2051 

BD 

57 

04 

LDA 40457.X 

2054 

0A 



ASL 

2055 

0A 



ASL 

2056 

OA 



ASL 

2057 

0A 



ASL 

2058 

E8 



INX 

2059 

7D 

57 

04 

ADC 40457.X 

205C 

9D 

5B 

04 

STA 4045B.X 

205F 

18 



CLC 

2060 

60 



RTS 

2061 

EA 



N0P 

2062 

A6 

13 


LDX 413 

2064 

8E 

91 

20 

STX 42091 

2067 

AS 

12 


LDA 412 

2069 

69 

03 


ADC #403 

206B 

90 

04 


BCC 42071 

206D 

18 



CLC 

206E 

EE 

91 

20 

INC 42091 

2071 

BD 

90 

20 

STA 42090 

2074 

AE 

5C 

04 

LDX 4045C 

2077 

8E 

84 

20 

STX 42084 

207A 

AE 

5E 

04 

LDX 4045E 

207D 

8E 

83 

20 

STX 42083 

2080 

A2 

08 


LDX «408 

2082 

AD 

FF 

FF 

LDA 4FFFF 

2085 

4A 



LSR 

2086 

48 



PHA 

2087 

90 

02 


BCC 4208B 

2089 

A9 

31 


LDA «431 

208B 

B0 

02 


BCS 4208F 

208D 

A9 

30 


LDA «430 

208 

9D 

B3 

BD 

STA 4BDB3.X 

2092 

68 



PLA 

209 

CA 



DEX 

209 

D0 

EF 


BNE 42085 

209 

60 



RTS 

209 

EA 



N0P 

209 

A2 

00 


LDX *400 

209 

86 

35 


STX 435 

209 

68 



PLA 

209 

AA 



TAX 

209 

68 



PLA 

209 

A8 



TAY 

20A 

68 



PLA 

20A 

4C 

22 

EE 

JMP 4EE22 


Guillaume Murat 
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■en revenant 

DE L'EXPO... 


A llongé sur le sable, les 
doigts de pieds en éven¬ 
tail, je sirote avec délice 
un verre de Kir bien glacé en re¬ 
gardant passer les filles. Et 
vous voudriez que je vous parle 
d'informatique? Que je vous 
narre par le menu les dernières 
péripéties d'Apple et de ses 
machines? Les Applema- 
niaques sont des monstres. Al¬ 
lez. Je sais bien qu’on ne trouve 
pas de prise de courant sur les 
plages. Vous êtes donc sûre¬ 
ment frustrés de ne pouvoir 
pianoter sur votre Mac ou votre 
/ / e en vous aspergeant de Piz 
Buin et avant d'aller à la pêche 
aux crevettes. 

Je prends donc mon beau sty o 
rongé par les embruns pour 
vous pondre cette rubrique es¬ 
tivale. Il fait beau, il fait chaud et 
avec tout ces seins nus autour 
de moi j'ai l’impression de tour¬ 
ner dans le «Cocoricocoboy» 
du samedi soir. Pardonnez si e 
suis un peu distrait. Donc, la 
nouvelle du mois, c’est qu’Ap- 
ple va s'aligner sur le MS/ DCS 
(selon la revue américaine Info¬ 
world, qui n'est pas du genre à 
balancer des nanars pour faire 
monter le chiffre des ventes). 
Que signifie-ce et qu'en dé- 
duis-je? Simplement qu’App e 
est en train de négocier un vi¬ 
rage pour attaquer le marché 
professionnel à fond la caisse. 
Le but de la manœuvre est de 
ne pas se laisser enfermer 
dans le particularisme et de se 
soumettre aux standards d'ex¬ 
ploitation d'IBM: MS/DOS et 
UNIX. 

Cela ne veut pas dire qu’Apple 
renonce à sa personnalité et 
d'ailleurs cette mesure 
concerne essentiellement les 
Macintosh, du moins dans un 


premier temps. En clair, il aura 
fallu du temps mais les restruc¬ 
turations opérées par John 
Sculley débouchent sur une 
politique de cohabitation avec 
IBM qu'on sentait poindre de¬ 
puis un moment. Bon. Faudra 
s’y habituer. 

Ordinateur domestique 

Jean Calmon, patron d'Apple 
France, se donne beaucoup de 
mal pour faire passer la notion 
suivante: pour Apple, un ordi¬ 
nateur n'est pas domestique 
parce qu’on l’utilise avec des 
programmes de jeu ou de ges¬ 
tion familiale, mais simp ement 
parce qu’on l’utilise ailleurs 
qu’au bureau. Ce subtil distin¬ 
guo l’amène à penser que la 
machine à la maison peut servir 
à des activités de loisirs, mais 
aussi à des prolongements 
d’activités de bureau ou à des 
applications personnelles Une 
faqon comme une autre de faire 
comprendre qu’un Apple est 
aussi noble sur une planche à 
repasser que dans le bureau 
d'un P-D.G. Message bien 
reçu. 

Confidence 

Le nouvel Appel / / ne sera pas 
très cher annonce Jean Cal¬ 
mon. Pour plus de précision il 
faudra attendre... la sortie du 
nouvel Apple //. Nous voilà 
bien avancés. Je vais me bai¬ 
gner et je reviens... 

Magasins 

La filiale française vient de re¬ 
négocier ses contrats de distri¬ 
bution et de réduire le nombre 
de ses revendeurs, On ne trou¬ 
vera pas de machine dars les 
supermarchés, ni dans les hy¬ 
pers. Près de 150 points de 
vente grand public et 250 
points de vente professionnels 


vont désormais assurer la com¬ 
mercialisation des machines. Il 
faudra donc courir un peu plus, 
mais on aura affaire à des spé¬ 
cialistes. Faut voir. 

Flash 

A l’heure où j’écris ces lignes 
sous les cocotiers (début juin), 
Apple Expo n'a pas encore eu 
lieu et e suis le SEUL à savoir 
qu'une bande de journalistes 
fondus d’informatique prépa¬ 
rent un quotidien sur Mac et La¬ 
serWriter qui sortira au moins 
deux fois par jour pendant les 
quatre ours de l'expo. A l'heure 
où vous me lisez. TOUS ceux 
qui sont venus à l’expo le sa¬ 
vent déjà. Pour les autres, voilà 
la tête du numéro zéro que je 
suis le PREMIER à avoir eu en¬ 
tre les mains. 

La responsabilité de ce canard 
a pesé sur les épaules de 
Jean-Lotis Courleux de 
France-Inter qui ne lâche son 
poste de radio que pour s'em¬ 


parer d’Ln clavier d'ordinateur 
ou d’un téléphone. Il était as¬ 
sisté par Andréas Pfeiffer, 
Pierre Cotrbier et Guillaume Vi- 
gnoles. 


Exstasie, de Pierre Berloquin 
et Serge Hervy, est le concur¬ 
rent français de Dazzle Draw, 
c’est-à-ci'e un soft de dessin 
en double haute résolution sur 
Apple II. Cela signifie des 
écrans avec 16 vraies couleurs, 
pas baveuses, et tout, et tout. 
Mais comme Berloquin et 
Hervy sont des petits malins, ils 
ont songé (en plus) à mélanger 
le mode noir et blanc et le mode 
couleur. L’avantage du noir et 
blanc est d’obtenir une meil¬ 
leure définition. Avec Exstasie, 




Quidam est errandum 


Comment profiter au 


maximum d’Apple Expo... 


Une Pomme, 
sinon rien... 

j Aber quusque camus firm fïrmus et 
tbiqu.tur malen ten tendus maximus 

salus gueulus in pane ue djvjsa es[ 

quid acomplitur suus sumnum que 
adeus rorschach millenium falcum 

I rock me. Amadeus at wolfgangus put 
PJt put mirabaellae sanctus 
scnctissimis oedipus schnoedipus 
Soronbus aléa jacta est et comment 
a vous saviez tata pu.pum fructum 
maximum sans quoi duplex. 

Etstus zweitus in herbus aqua et 
| raanna sans parler de ada in acoellum I 
| septentreion rorschach millenium 
| facum rock me. Amadeus at 
wcifgargus put put put mirabaellae 
sarctus sanctii. 

rorschach millenium falcum rock me. 
Amadeus at wolfgangus put put put 
mirabae.lae sanctus sancd.Aber 
q uusque cantus firm firmus et 
ubiquitur malen ten tendus maximus 
salus gueulus in pane tre divisa est 
quid acomplitur suus summum que 
tadeus rorschach millenium falcum 
rock me. Amadeus at wolfgangus put 
put put mirabaellae sanctus 
summum que tadeus rorschach 
millenium falcum rock me. Amadeus 


Aber quusque cantus firm firmus 
et ubiquitur malen ten tendus 
maximus salus gueulus in pane 
tre divisa est quid acomplitur suus 
summum que tadeus rorschach 
millenium falcum rock me 
Amadeus at wolfgangus put put 
put mirabaellae saictus 
sanctissimis oedipus schnoedipus 
Soronbus aléa jacta est et 
comment si vous saviez tata 
pulpum fructum maximum sans 
quoi duplex. 

Erstus zweitus in herbus aqua et 
marina sans parler de ada in 
acoellum septentreion rorschach 
millenium falcum rock ire. 
Amadeus at wolfgangus put put 
put m ^ irabaellae sanctus 
sanctii rorscha ch mille 

nium falcum nxk 
Tj me. Amarp 


wolfgangus put put put mirabaellae 
sanctus sanctiAber quusque cantus 
firm firmus et ubiquitur malen ten 
tendus... 



PremiérePa9d ™^ 

pendant Apple Expo. Edité sur Macintosh 

grâce à PageMaker et tiré 

sur LaserWriter. 


DISQUETTES 


Pour Apple II 
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remplacé le 6502. Il est plus 
performant et comporte un jeu 
d'instructions plus large que 
son prédécesseur. Ce livre en 
décrit les caractéristiques et la 
programmation. Mais il reste 
plus un manuel d’apprentis¬ 
sage qu’un outil de travail et le 
tableau récapitulatif des ins¬ 
tructions n’a pas été traduit en 
français. 
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Pour Apple II 

Si vous travaillez sous DOS 3.3, 
vous pouvez connaître facile¬ 
ment l’adresse et la longueur 
d'un fichier binaire en mémoire. 
Pour cela, chargez votre fichier 
par un classique BLOAD... puis 
CALL-151 pour entrer dans le 
moniteur. Tapez AA72 et deux 
fois return. Les deux chiffres qui 
apparaissent (00 et 20 par 
exemple) représentent 

l’adresse de début de ce fichier 
en mémoire. Mais il faut inver¬ 
ser ces chiffres pour que 
l’adresse soit correcte. Ici, il 
s'agira donc de l'adresse 2000 
(en hexadécimale). Pour la lon¬ 
gueur du fichier, même chose 
avec AA60. Il est souvent utile 
de connaître l'adresse et la lon¬ 
gueur de dessins compactés 
par exemple. Contrôle C vous 
rebranche sur le Basic. 

Pour Macintosh 

Si Bill Atkinson avait publié tou¬ 
tes les astuces que contient 
MacPaint dans le manuel, ce¬ 
lui-ci aurait été si volumineux 
que l’utilisateur aurait renoncé à 
le lire. Voici donc de nouvelles 
astuces sur MacPaint pour 
ceux d’entre vous qui débutent 
avec ce programme : le double 
clic sur la gomme efface l’écran 
de travail (pas la page entière). 
Le double clic sur le crayon fait 
passer automatiquement en 
loupe. Pour tirer des lignes par¬ 
faitement droites en mode pin¬ 
ceau, appuyez à la fois sur.la 
touche option et la touche shift. 
Et sur ces bonnes paroles, je 
retourne à mon kir raffraîchis- 
sant. Les cocotiers verdoyent, 
la mer ondoyé, les filles se bai- 
gnoient, je laisse tomber les 
bits et les octets pour un mois. 


L’Assembleur facile du 
65C02 de François Monteil 
chez Eyrolles. 

Je ne vous apprends pas que 
le 65C02 est le microproces¬ 
seur de l'Apple //, celui qui a 


Logiciel de dessin en double haute résolution pour Apple II. Exstasie mélangé le mode noir et Diane 
et le mode couleur. Possibilité de compacter les images. Edité par Apple (590 F). 


on peut créer un écran dont 
certaines parties sont en noir et 
blanc, d'autres en double- 
haute résolution couleur. Voyez 
le résultat sur la photo: c'est 
étonnant. Pour ne pas s'arrêter 
en si bon chemin, les auteurs 
de ce soft ont ajouté la possibi¬ 
lité de compacter les images 
ou de n’en sauvegarderqu’une 
partie. Le logiciel se présente 
avec des menus déroulants et 
des fenêtres. On se croirait sur 
du Mac. Seuls regrets: l'ab¬ 
sence de formes pleines (rec¬ 
tangles pleins, ovales pleins) et 
une routine de remplissage qui 
laisse un peu à désirer. 

Exstasie est édité par Apple. 
Prix : 590 F. 

EMC2 est une nouvelle maison 
d'édition qui démarre. Son pre¬ 
mier programme consiste en 
un classique apprentissage de 
l'alphabet vaguement inspiré 


dans le principe par les Our¬ 
sons Malins. Oscar l’Alpha¬ 
bet comporte une partie vocale 
(avec un léger accent poitevin). 
Il est destiné aux tout-petits. 
Quatre parties: l’alphabet en 
images, le répétiteur, des let¬ 


tres dans l'espace, le déména¬ 
gement et la jungle des lettres. 
Le tout pour 179 F ttc. Attention, 
il faut au moins deux lecteurs 
de disquettes et un joystick 


pour faire parler nounours. 
EMC2, 47, faubourg au °ont 
Neuf, 86000 Poitiers. 

Pour Macintosh 

Dans les fameuses disquettes 
domaine public du Macintosh, 


Vision 

apocalyptique 
de 

l’effrondrement 
de l’écran du 
Mac. Un des 
logiciels du 
domaine public 
diffusé par VIF, 
5, rue de 
Bassano, 

75016 Paris. 

c’est-à-dire des programmes 
dont les auteurs ont renoncé à 
leurs droits, il en est un qui m'a 
fait craquer: c'est celu totale¬ 
ment inutile qui consiste à faire 
s'effondrer l’écran du Mac (voir 
photo). C'est franchement gé¬ 
nial et ça ne sel stricrement à 
rien, mais quelle rigolade. 


Annoncé dans Micro V.O n° 8, l’exposition de Jean Solé s’est tenue 
à la Maison populaire de Montreuil. Outre la série de graphismes 
réalisés sur Macintosh, notre sémillant reporter a pu admirer ce 
superbe robinet que Jean Solé montre ici à une visiteuse... 


CHEZ 

LE LIBRAIRE 


BONNES 

FICELLES 


Pépé Louis 






































LES ROBINSONS 
DE LA MICRO ... 


Toujours sur la brèche, les journalistes de Micro V.O. sont partis jouer les Robinsons sur nie déserte. 
Avec leur machine et leurs logiciels favoris. Comme ils n’ont pas trouvé de cartes postales, ils ont 
pioché dans leur album de famille. Un clin d'œil pour vous souhaiter à tous : bonnes vacances... 



MSX 

Dans la sacoche d'AIKhawarismi 

MUSIC STUDIO, PRO-GRAPHIC, PING-PONG 


J’emporte : Music Studio de Sony : mon 
ordinateur transformé en petit studio musi¬ 
cal. J’enregistre, comme avec un magné¬ 
tophone, chacune des trois voix (avec mé¬ 
tronome s’il vous plaît). J’obtiens ensuite la 
partition de ce que j’ai joué. Je la modifie 
note à note (il m’arrive de me planter sur le 
clavier). Je modifie les enveloppes des 
sons (10 enveloppes possibles) que je 
peux insérer dans la partition. Je rajoute des 
nuances, des répétitions. Je sors la partition 
sur imprimante, et je vais voir le coucher de 
soleil sur la lagune, en écoutant mon œu¬ 
vre. C’est beau la music. Prix : 395 F (car¬ 
touche). 

Pro-graphic, de Electric Software, distri¬ 
buteur Cameron : on ne sait jamais, s’il 


pleut je pourrai toujours dess ner avec ce 
merveilleux programme, assez intello, il est 
vrai, qui permet de se fabriquer des nou¬ 
veaux jeux de caractères, des sprites, faire 
un dessin que l’on décompose en blocs de 
huit sur huit pour construire avec chaque 
bloc (cf Lode Runner, Boulder Dash...), 
contrôler l’écran point par point. Bref, tout 
ce que l’on peut faire avec MSX. Je vais 
pouvoir préparer mon futur jeu d’aventure. 
Zut! J’avais dit que je ne travaillerais pas 
pendant les vacances. Prix : 499 F (uni¬ 
quement sur softcard). 

Ping-Pong, de Kuonami :quand la vraie 
table sera occupée (hé oui, j’ai une table de 
pinc-pong sur mon île déserte et alors? J’ai 
bien l’électricité) je pourrai continuer à 


COMPATIBLES PC 

Dans le sac de Michaël Thévenet 

WORDSTAR 2000 ET KX COM 


Quoi de mieux qu’écrire pour occuper sa 
solitude? Rien, alors vive le traitement de 
textes! Wordstar 2000 va m’ouvrir les 
portes de la littérature. Avec son diction¬ 
naire intégré, il corrigera toutes mes fautes. 
Exactement ce qu’il faut à quelqu’un qui n’a 
jamais réussi à retenir trois règles gramma¬ 
ticales sans les mélanger. Et ce n’est pas 
tout! Cet utilitaire possède des fonctions 
d’aide, accessibles en permanence, extrê¬ 
mement puissantes. Même si je perds la 
documentation fournie par Micropro, je 
pourrai continuer à confier mes sentiments 
à mon PC, à les mettre en page et les peau¬ 
finer à longueur de journée. Et si ma mé¬ 
moire flanche, je la rafraîchirai régulière¬ 
ment avec mes écrits. Mon PC ne perdra 
pas les pédales, lui, quoi qu’il arrive! Words¬ 
tar 2000 m’aidera à constituer cette mé¬ 
moire de secours. Mais à lui seul, il ne saura 
me sauver de l’ennui. J’ai besoin de variété, 
moi Monsieur! 

Bronzette et écriture sont deux mamelles, 


AlKhawarismi ( 
dans son 

exercice r . 

préféré: les ^ 
pâtés. Il n’a pas 
changé... 


m’entraîner. Gauche, droite, coupé lifté du 
revers ou du coup droit, et smash, tout est 
possible. C’est d’un réalisme étonnant, la 
preuve, je fais les mêmes fautes qu’au vrai. 
Prix : 190 F (cartouche). 


Cet espiègle ( 
gamin finira mal: 
journaliste 
informatique... 


un peu maigrichonnes, pour un exilé volon¬ 
taire sur Micromicro. Le deuxième logiciel 
doit impérativement briser la solitude oui rè¬ 
gne sur nie. La solution m’est apparue en 
un éclair : l’atoll est relié au reste du monde 
par deux cordons ombilicaux, l’un élec¬ 
trique, l’autre téléphonique, sans poste 
bier sûr (le règlement toujours). 

Du coup, j’ai équipé mon PC de la carte 
Kortex 1200 accompagnée de son soft de 
communication KX COM. Je vais visiter 
toutes les banques de données du monde. 
Minute par minute j’observerai les catastro¬ 
phes auxquelles j’échappe, planqué sur 
mon île. A tout moment, les messageries 
recueilleront mes confidences de Robinson 
des mers du Sud. 

Même si j’arrive à épuiser ces ressources, 
je me connecterai sur tous les PC du 
monde. Je récupérerai à mon compte tous 
les fichiers binaires exécutables (et non 
protégés) qu’ils recèlent dans leur mé¬ 
moire. J’aurai de quoi m’occuper, tart que 


les jumeaux de mon micro travailleront. 
Pendant que je dégusterai quelques noix I 
de coco, mon micro continuera de collecter 
des informations. Gu dé par l’horloge, KX 
COM ira visiter en automatique les lieux les | 
plus éloignés de Micromicro. Ses procédu¬ 
res de vérification m’offriront des nouvelles I 
prêtes à la lecture: Le pied pour un flem-1 
mard comme moi! 


70 


Micro V.O n° 9 - Juillet-Août 36 












APPLE 

Dans la besace de Pépé Louis 

MAC WRITE, MACPAINT, KING QUEST 2, EXTASIE 


Pépé Louis 
grimaçait déjà. 
Maintenant il 
grince et il 
grogne. C’est 
pas mieux... 


J'empole : Macwrite, 1 e plus délirant des 
traitements de texte jamais vu sur un micro¬ 
ordinateur. Certains lui préfèrent Word, mais 
je reste fidèle au look de Macwrite, ses rè¬ 
gles simples, la diversité des caractères, la 
facilité de mise en page. C'est l’outil indis¬ 
pensable au naufragé qui veut publier ses 
mémoires. 

J'emporte aussi : Macpaint, le plus clas¬ 
sieux des programmes de dessin. Aussi 
traditionnaliste que cela puisse paraître, 


Macwrite et Macpaint sont les programmes 
les plus indispensables à l'emploi du Ma¬ 
cintosh. Ils ont la particularité de posséder 
des dizaines d'astuces non-explicitées 
dans les manuels et qu'on a le plaisir de dé¬ 
couvrir au fur et à mesure de leur utilisation. 
Si, finalement, je choisis l'exil avec un Apple 
II, j'emmène King Quest 2 qui se passe 
sur une île déserte. Ça tombe bien et ça 
pourra me donner des idées. 

Du voyage également, Extasie, le pro- 


THOMSON 

Dans la malle de Jenny Lepetit 

PROLOG, SUPER ANDROÏDE, CARTE DU CIELl 


J’emporte : Prolog, de FIL : Je ne me 
trouve pas très intelligente. Alors il y a long¬ 
temps que j’avais envie d’améliorer ça avec 
de l’intelligence artificielle. Car Prolog est un 
langage (comme Basic) fait pour program¬ 
mer des problèmes d'intelligence artificielle 
(j’ai entendu dire qu’on allait bientôt vous en 
parler). Prix : 990 F (Cartouche pour T07- 
70 et MOS). 

Super Androïde, distribué par Infogra- 
mes : un remake de Lode Runnerà plus de 
cent tableaux. J'ai déjà passé de longues 
nuits à escalader des échelles, creuser des 
trous et piquer des paquets malgré les af¬ 


freux robots qui me poursuivent. En fait, je 
l’emmène surtout pour construire mes pro¬ 
pres tableaux et coincer tout le monde en 
rentrant au journal. Sur T09 (pour le mo¬ 
ment), prix : 250 F. 

Carte du ciel, de FIL : je me vois déjà sous 
le ciel rempli d’étoiles, un petit copain sous 
un bras et mon T07 sous l'autre. Tiens Re¬ 
garde là haut. Un petit coup de crayon op¬ 
tique à l’endroit adéquat, tu vois, c’est Cas¬ 
siopée. Sur l’écran, le ciel s'affiche comme 
on le voit, là où on est, à condition de donner 
la latitude et la longitude du lieu d’observa¬ 
tion (vous ne croyez pas que je vais vous 
dire où se trouve mon île déserte). On pointe 


COMMODORE 

Dans le baluchon de Rie Forster 
DELUXE PAINT, THE NEW ROOM, LITTLE COM PUTER PEOPLE 


Des vacances aux frais de la princesse! les 
França s savent vivre. Quel bonheur de col¬ 
laborer à une telle revue! Le Commodore 
64 fait évidemment partie du voyage ainsi 
que sa jeune sœur Amiga (dont je suis 
amoureux). Le Vie 20 était en surcharge. 
Pourtant, avec Tron comme logiciel, il aurait 
été un bon compagnon! La belle Amiga 
n’est vêtue que du seul Deluxe Paint, un 
parfum qui lui sied à merveille. Par contre, le 
choix eu logiciel pour C64 est un vrai casse 
tête. Que piocher dans sa gigantesque «lo¬ 
githèque»? The News Room et Utile com¬ 
puter people seront mes invités au voyage. 
Le dessin, c’est ma deuxième passion. La 
liste des logiciels graphiques qui me sont 
passés entre les mains est bien longue. 
Pour quelques dollars de plus, certains 
dessinaient avec l'Apple et Dazzle Draw, et 
puis le ST est arrivé. Très volage, j’ai eu le 
béguin pour Neochrome. A ma décharge, 
Deluxe Paint n’était pas encore sur le mar¬ 
ché. On atteint vite les possibilités de Neoc¬ 
hrome, en revanche, les limites de l'Amiga 
sont encore bien éloignées. Le manuel de 


gramme de dessin de Berloquin, pour 
pouvoir préparer de superbes images por¬ 
nographiques et les vendre sous le man¬ 
teau au premier éditeur qui croise au large 
sur son yacht de luxe. 


La future vamp 
de la micro dans 
une pose de 
charme. Heureux 
temps... 


Win 




une constellation et on a son nom. On peut 
même avoir un grossissement et le nom 
des étoiles la composant. Ah, comme le ciel 
est transparent... Prix : 165 F (sur cassette 
TQ7-70 et M05). 


Ce monstre va 
grandir: son 
mauvais 
caractère aussi. 
Pauvre de nous.. 



Deluxe Paint est à peine nécessaire tant le 
mode d’emploi du logiciel est aisé. Iccnes, 
encore des icônes, toujours des icônes, 
avec, en plus, de nombreux menus dérou¬ 
lants. Seize couleurs sont proposées en 
mode très haute résolution, choisies sur 
une palette comprenant 4096 teintes. Elec¬ 
tronic Art commercialise également Deluxe 
View (vidéo et digitalisation), Deluxe Print 
(impression couleur ou noir et blanc)... une 
affaire à suivre de très près. (Electronic Art). 
«Waouh! T'as vu Forster? Il espère peut- 
être réaliser le numéro de septembre tout 
seul!» C'est quasiment en ces termes que 
fut accueillie l'annonce de mon départ avec 
News Room. Le Californien que je suis n'a 
pas cette prétention. Tout au plus créer 
mon journal de bord. Ce logiciel permet en 
effet de concevoir maquettes, mises en 
page, filets, accroches, titres, chapô etc. 
La panoplie du parfait secrétaire de rédac¬ 
tion, quoi! C'est également un logiciel idéal 
pour les affichettes de publicité. Le courrier 
ne suivant pas sur l’île, je fabriquerai mon 
propre quotidien. (C64-Activision). 



«La solitude, ça n'existe pas». Tu parles! 
Pour ne pas devenir claustro, j'ai la chance 
d'avoir la compagnie des habitants du C64. 
Sachez que tout micro possède sa popula¬ 
tion Little computer people permet de 
prendre contact avec eux et de les visuali¬ 
ser. Dans un intérieur bourgeois (piano, bar, 
toilettes, etc.) un petit résident des 6502 vit 
à vos côtés. Il a énormément besoin d’af¬ 
fection et il faut s’occuper de lui ppur l’em¬ 
pêcher de sombrer dans la déprime... 
(C64-Activision). 
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LES ROBINSONS 
DE LA MICRO ... 


Cet innocent 
enfant connaîtra 
un jour l'enfer 
delà 

programmation. 


AMSTRAD 

Dans la valise de Thierry Lévy- Abégnoli 

SPLINDIZZY, LORIGRAPH, TURBO PASCAL GRAPHIQUE 


Splindizzy donne des insomnies aux pro¬ 
grammeurs... Comment faire mieux? Tridi- 
mentionnel, son décor est un amoncelle¬ 
ment de cubes et de pentaèdres,qui se 
fraient parfois un chemin au milieu d'éten¬ 
dues d’eau. L'écran est une fenêtre sur le 
décor, le déplacement s'effectuant sans 
scroling, donc instantanément. Le nombre 
de «pièces» approche les quatre cents et 
pour vous repérer, le plan n'est pas inutile. 
Avec la manette de jeu, vous dirigerez une 
pyramide à l'envers, transformable en tou¬ 
pie ou en sphère. Elle possède une terrible 
inertie et subit la gravité, une pression sur 
tire lui procure une forte accélération. Le but 
du jeu est d'explorer le plus de terrain pos¬ 
sible. Difficile car le capital d'énergie dimi¬ 
nue avec le temps et les chutes, et seuls les 
diamants peuvent l'augmenter. Lorsque 
l'on maîtrise cette diable de toupie, le jeu 
devient fou fou fou. On peut alors prendre 
de l’élan pour sauter sur un tremplin, slalo¬ 
mer sur des chemins entourés d'eau, grim¬ 
per sur des pentes vertigineuses, effectuer 
de vrais vols planés par-dessus des obsta¬ 
cles, prendre un ascenseur, tout cela en 



changeant instantanément l'angle de vue, 
pour s’apercevoir après un après-midi de 
jeu et des dizaines de parties, que 9? % de 
I univers restent inexplorés! (Activision, 
140 F ttc). 

Des ogiciels de création graphiqje, il en 
existe une multitude sur Amstrad, le choix 
fjt pourtant aisé car, utilisateur intensif de 
Lorigraph, j'en suis devenu un incondi- 
tonnel. 

Ce soft reprend la présentation du célèbre 
Mac paint. La taille du dessin est ceile de 
l'écran, la barre de menus déroulants, les 
icônes et motifs peuvent être supprimés de 
façon à le visualiser dans son intégralité, 
mais généralement il faudra le faire défiler. 
Glissons sur les fonctions habituelles telles 
que tracé de lignes, de boîtes, de cercles, 
copie d'écran (très rapide), pour nous attar¬ 
der sur d'autres. La loupe fait apparaître 
deux fenêtres, l'une représente la portion 
de dessin grandeur nature, dans la se¬ 
conde, cette pcrtion est grossie, il est pos¬ 
sible d'y faire défiler tout le dessin. Sélection 
et duplication d’une partie du dessin, utili¬ 
sation de trames, insertion de textes (plu¬ 


- 


sieurs polices de caractères) sont très pra¬ 
tiques. Enfin, il est possible de ré-exploiter 
vos chefs-d’œuvre sous n’impore quel 
langage. (Loriciels). 

Turbo pascal graphique (Borland Fraciel, 
950 F ttc). 

Aïe, je vois bailler les fous de programma¬ 
tion. Le Basic de l'Amstrad est rapide... 
pour un Basic! Car pour les jeux d'arcades 
(par exemple), les langages compilés s'im¬ 
posent. L'un des plus prisés est le Pascal... 
et le meilleur Pascal sur Amstrad c'est 
Turbo-Pascal, 30 à 45 fois plus rapide que 
le Basic Locomotive (sauf en affichage, à 
peine deux fois plus rapide). Alors quand on 
apprendra que la version la plus récente 
exploite toutes les possibilités graohiques 
et sonores de votre machine, il n'y aura plus 
à hésiter! D’autant que ce Pascal corrige la 
plupart des défauts de ses ancêtres : le P- 
code a été banni (ouf!), l’accès direct et la 
manipulation de bits sont possibles, les 
équivalents de peek, poke et call sont pré¬ 
sents, et j’en passe! Non vraiment, en ma¬ 
tière de langages, Turbo-Pascal s’ mpose. 
(Borland Fraciel, 950 F ttc). 


ATARI 

Dans la même valise 
BRATTACAS, EMULCOM, TEXTOMAT 


Je vais vous en donner moi de l'aventure! et 
de la meilleure! de la qui exploite vraiment 
les possibilités graphiques de l’Atari et de 
son 68000. Brattacas, c'est le jeu d’aven¬ 
ture au look jeu d' Arcade, un digne descen¬ 
dant de l'Aigle d'or, c'est le jeu qui a donné 
du fil à retordre aux graphistes et anima¬ 
teurs. 

L'intrigue? Bon alors là c’est plus classique. 
Vous incarnez un savant pas si fou qui, tel 
Einstein invente quelque chose (je vous 
laisse la surprise) susceptible d'être utilisé 
m litairement. Tel Einstein, il se dit «dam- 
ned! N'aurais-je pas dû m'abstenir?», 
mais, contrairement à lui, il refuse toute col¬ 
laboration avec son gouvernement, et, bien 
décidé à réparer son inconséquence, s’en¬ 
fuit de sa planète. Tout ce scénario pour 
justifierson arrivée sur l’astéroïde Brattacas, 
une sorte de gigantesque tripot à la dérive 
dans l'espace. C'est là que se déroule 
l'aventure. On retombe à peu près en terrain 
connu : des salles, des objets, des rencon¬ 
tres, des dialogues, des combats, mais tout 


cela très, très, très soigné, très coulé, net, 
sans bavures, vaste, riche, un vrai travail 
d'orfèvre. (Rainbird, 399 ttc). 

Regardez au pied du cocotier, il y a là une 
prise de téléphone, et raccordé à cette 
prise... un minitel. Euh, vous accusez le 
choc? 

Emulcom se connecte à votre minitel par 
un câble (fourni) et ne nécessite donc au¬ 
cun modem Ce soft peut d’aborc émuler 
un m nitel, le clavier et l'écran de I Atari se 
substituant à ceux de votre minitel. Cette 
fonction s'accompagne de la poss bilité de 
sauvegarder ou d'imprimer des pages vi¬ 
déotex, ou encore de définir des sécuen- 
ces de frappe, ce façon à accéder automa¬ 
tiquement à une partie d’un service. Ces 
fonctions sont disponibles à tout rstant 
grâce à la souris et aux menus dérou ants. 
En mode 80 colonnes, la moitié gauche de 
l’écran représente l'écran minitel, pointa- 
bles par la souris. En 40 colonnes et cou¬ 
leur, avec en plus la barre de menus. Si vo¬ 
tre minitel est retournable, Emulcom peut 


l’utiliser comme un modem, et échanger 
des données avec tout système dont le 
protocole est de type Kermit. Ah! J’oubliais 
un gadget utile, il est possible d’afficher en 
permanence le temps de connexion et le 
prix de la communication. 

Préparez votre retourtriompha! : écrivez vos 
mémoires! Vous l'avez deviné, je vais vous 
parler d'un traitement de texte qui a fait ses 
preuves sur Amstrad et qui exploite toutes 
les possibilités de l’Atari. 

Textomat peut afficher plusieurs polices 
de caractères simultanément, les menus 
sont exploitables par le clavier ou la souris, 
le texte peut être visualisé tel qu’il sera im¬ 
primé, mais cela n’est autorisé que dans un 
mode spécial qui ne permet pas l’édition. 
La césure automatique et française vous 
est offerte sur un plateau et l'assignation 
aux touches de fonctions de séquences de 
frappe vient au secours de votre farniente. Il 
est possible de générer automatiquement 
un sommaire. Enfin, Textomat peut récupé¬ 
rer des données provenant de Calcomat 
(tableur) et Datamat (gestion de fichier), ce 
qui permet, par exemple, le mailing. (Micro- 
Application, 450 F ttc). 
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SOLUTION 

DU QUESTIONNAIRE TEST 
Comptez un point par réponse 
juste 

1. Disk Operating System - 2. Le Har¬ 
vard Mark d'IBM en 1944 - 3. Jack 
Tramiel, bien sûr - 4. Des voitures 
électriques qui se sont, par ailleurs, très 
mal vendues - 5. Jobs suivait un ré¬ 
gime à base de pommes, et je l’avais 
déjà dit dans ma rubrique App:e de 
MVO! - 6 . Le clavier Maltron com¬ 
mence par QPYCB et sa disposition est 
ergonomique: les premières Ignés 
des touches sont en courbe - 7. Alan 
Michael Sugar Trade, c’est-à-dire les 
initiales du patron de la firme - 8 . Plus 
de quarante ans (41 en 86) - 9. Alice, 
le mini-micro - 10. Wilhelm Schickard 
à Tubingen en Allemagne aux alen¬ 
tours de 1623 - 11. Un ou plusieurs 
synthétiseurs - 12. Z80 - 13. Sey¬ 
mour Papert - 14. Un octet composé 
de huit éléments binaires - 15. Un ta¬ 
bleur pour IBM - 16. Alan Sugar est 
frisé - 1 7. Du silicium (éventuellement 
du strontium près des centrales nu¬ 
cléaires) - 18. L’assembleur - 19. 32 
touches, ce qui est suffisant pour 10 
doigts - 20. La Pratique des IBM PC 
d'Henri Lilen, bravo pour lui - 21. Da¬ 


vid Midnight puisqu’il s’agit d’un soft de 
flippe'électronique - 22. Tulipe est un 
compatible hollandais - 23. DO E5 FO 
E5 CC EF F5 E9 F3 - 24. Un mathé¬ 
maticien arabe dont Al Khawarismi, no¬ 
tre sémillant collaborateur, est sans 
doute l’un des descendants. De son 
nom vient le terme Algorithme - 

25. D’un 6809E. Fallait le savoir - 

26. Du latin ordinare - 27. L’écriture 
sur disque optique numérique: Direct 
Read After Write - 28. The Mystery 
House de Ken et Ftoberta Williams qui 
fondèrent la société Sierra On Line - 
29. Joël de Rosnay et sa femme Stella 

- 30. 1141 079, faut y aller à la ma¬ 
nœuvre! - 31. C’est 65 - 32. Une 
carte de synthèse vocale pour les non- 
voyarts - 33. Le Grid - 34. 970 000 - 
35. C’est à la fois une instruction du 
Basic et le titre d’un film - 36. La per¬ 
mette Mignon, n’est-ce pas? - 
37. Charles Xavier Thomas de Colmar 

- 38. L’Electron de BBC - 39. Les En¬ 
fants de l'ordinateur, superbe bouquin 
pour vos vacances (Denoël) - 40. Be- 
ginners Ail Purpose Symbolic Instruc¬ 
tion Code... le langage des débutants - 
41. LeToutatis- 42. Cyrille de Vigne- 
mont - 43. Un micro-ordinateur dont 
personne n’a parlé et que tout le 
monce a oublié, c’était dur - 44. Des 
éditeurs qui ont pour particularité de 
vendre des logiciels non protégés - 

45. Le signe moins en anglais - 

46. Aux ultra-violets - 47. Rank Xe¬ 
rox. Etonnant, non? 48. En juillet 84 à 
l’heure de l’apéritif - 49. Le Laser 
3000 est un compatible Apple // - 
50. Marc Cecchi. 


Si vous avez entre 0 et 10 points: 

En achetant Micro V.O. vous avez cru 
acheter une revue sur les micropho¬ 
nes. Vous avez donc une excuse pour 
cette fois, mais l’année prochaine il fau¬ 
dra faire mieux. 

Si vous avez entre 10 et 20 points : 

Vous devez regretter de ne pas vous 
être abonné car vous auriez au moins 
atteint la moyenne en lisant le journal 
toute l’année. 


Si vous avez entre 20 et 30 points: 

Pas mal du tout. Non seulement vous 
vous intéressez à la programmation, 
mais aussi à l’histoire de la micro-infor¬ 
matique. Malgré quelques lacunes, 
vous pouvez fièrement exhiber votre 
score sur la plage pour bien montrer 
que dans votre vie le bronzage n’est 
pas forcément l’atout le plus important. 

Si vous avez entre 30 et 40 points : 

Une carrière vous guette au détour du 
chemin. Laissez tomber les vacances 
et rentrez immédiatement travailler sur 
votre micro-ordinateur préféré pour 
nous préparer le logiciel de l’année. A 
moins que ce succès grisant ne vous 
incite à vous reposer deux fois plus, au¬ 
quel cas vous devriez recommencer ce 
teste tous les dix jours pour vérifier si 
votre niveau de connaissance ne se li¬ 
quéfie pas. 

Si vous avez entre 40 et 51 points : 

Vous êtes incontestablement un crack 
à tous points de vue et l’équipe entière 
de Micro V.O. est fière de vous avoir 
comme lecteur. Toutefois, les journalis¬ 
tes vaguement paranos commencent à 
se faire du souci pour leur place. Heu¬ 
reusement vous êtes loin, sur le sable, 
sous les cocotiers. Si tel n’est pas le 
cas, laissez tomber l’informatique pour 
au moins trois semaines. Vous avez 
bien mérité de vous reposer. Mais ne 
ratez pas la rentrée de septembre et 
avant de plonger dans la grande bleue, 
pensez à renvoyer votre bulletin 
d’abonnement. 

Si vous avez entre 5 2 et 60 points : 

Vous avez triché. 


(sasuoday) 








































Roland-Garros, Wimbledon, le 
Tour de France et enfin la 
Coupe du monde. Deux mois 
fous pendant lesquels Noah, 
Platini et Hineau batailleront 
ferme pour garder leurs premiè¬ 
res places face aux Leconte, Fi- 
gnon et autres Papin. Voici des 
logiciels pour battre ces stars. 


WORLD CUPCARNIVAL 

(C64/128, CPC, Spectrum) 



Ces lignes sont écrites trois jours avant 
le match d’ouverture du Mundial. Vous 
les lisez alors qu'un nouveau titre a été 


décerné. World Cup Carnival est régi 
par les mêmes règles et les mêmes 
phases de jeu que les précédents logi¬ 
ciels de football. Un petit plus, cepen¬ 
dant, avec un mode d’entraînement et 
un tournoi. Plein de petits cadeaux 
dans le coffret de World Cup Carnival: 
un tableau des matchs, des petits dra¬ 
peaux auto-collants des différentes 
nations, un mini «digest» des records 
de toutes les coupes du monde et enfin 
un écusson à coudre survos blousons ! 
Huit joueurs peuvent prendre par au 
tournoi et choisir leur équipe. Pendant 
l'épreuve de tirs au but, lejoueurest, au 
choix, tireur ou gardien de but. Le 
mode d’entraînement consiste à gar¬ 


der le ballon en l’air le plus longtemps 
possible, grâce aux têtes, contrôle du 
genou ou du pied. Tous les déplace¬ 
ments s'effectuent aussi bien au clavier 
qu’avec la manette de jeu. Edité par US 
Gold, 160 F. Vu chez Ultima. 
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MSX et Thomson possèdent égale¬ 
ment leurs équipes de football (Foot¬ 
ball). Comme dans WorldCup Carnival, 
des tirs au but et un match sont propo¬ 
sés. Ce n’est pas un tournoi, seule¬ 
ment deux joueurs s’affrontent pen- 




Football 

dant des rencontres qui peuvent durer 
un quart d’heure à quarante-cinq mi¬ 
nutes (horloge programmable). Un 
joueur bousculé tombe. Malheureuse¬ 
ment Football ignore les lignes de tou¬ 
che, le ballon rebondit sur les bords du 
terrain. Edité par Nice Ideas, 150 F. 



Soccer 

Un football sur Commodore. C’est un 
ancêtre, mais il a de beaux restes ! Soc¬ 
cer propose un simple match. Lors de 
touches, un footballeur effectue la re¬ 
mise en jeu. Idem pour les corners et 
les sorties de but. A la fin de chaque 
match, on remet une coupe au vain¬ 
queur. La conduite des personnages 
est facilitée par une animation de qua¬ 
lité. Edité par Commodore (cartouche), 
150 F. 



Roland-Garros est maintenant désert. 
Becker, Lendl, Noah et tous les autres 
ont traversé le Channel pour de nouvel¬ 
les joutes dans l’arène de Wimbledon. 
Voici les principaux logiciels de tennis à 
posséder pour leur renvoyer la balle. 

TENNIS 3D 

(Amstrad, Thomson, Oric) 

Ce logiciel propose trois surfaces diffé¬ 
rentes: synthétique, gazon, terre bat¬ 
tue. Les parties se jouent seul contre 
l’ordinateur, ou à deux. Lobs, passing- 
shots, revers, smatchs, coups-droits 
sont les armes du tennisman accompli. 
Les ramasseurs de balles s’activent. 
L’ambiance d’un tournoi du grand 
Schelem est bien recréée. Edité par Lo- 
riciels, 140 F. 



Tennis 3D 

Pour Thomson encore (M05 et T07- 
70) avec Super Tennis. Adaptation du 
logiciel américain Balle de match (Com¬ 
modore), Super Tennis présente les 
mêmes qualités que Tennis 3D, avec 
une vision globale du terrain: specta¬ 
teurs sur les bords et tableau d’affi¬ 
chage au fond du court. Edité par Ans- 
ware, 150 F. 



On Court Tennis 

Les MSX ne restent pas sur la touche. 
Tennis offre bien sûr la possibilité de 
jouer seul ou à deux, mais aussi en 
double contre l’ordinateur! Le jeu man¬ 
que un peu de subtilité. Lobs, smatchs 
et lifts sont absents. Edité par Konami, 
210F. 


MATCH 

y 1 

point 


BV 

iC5s:cî 



CBPVÜIGHT DiL P6>*A*CH 1*84 


Match Point 


Une grande quantité de logiciels dé¬ 
diés à ce sport couvre toute la gamme 
des micros ( One Tennis Court, Match 
Point pour Commodore et Atari,). 
Jusqu’au Tennis pour Exelvision qui 
parle en français ! 


TOUR DE FRANCE 

Il y a un an à la même époque 
Activision proposait Tour de 
France pour Commodore 64 
(140 F). Hineau gagnait la 
grande boucle pour la cin¬ 
quième fois, alors que Laurent 
Fignon, précédent vainqueur 
(83,84), profitait de sa conva¬ 
lescence pour découvrir ce 
logiciel et s’entraîner. Le Tour 
86 sera la dernière confronta¬ 
tion de ces deux champions 
cyclistes et dernier tour de 
notre «blaireau» national. Im¬ 
miscez-vous au sein du pelo¬ 
ton. Tour de France n’a pas 
pris beaucoup de rides. Ce lo¬ 
giciel possède une particula¬ 
rité encore assez peu répan¬ 
due : tout au long du parcours, 
des panneaux publicitaires 
vantent les mérites de mar¬ 
ques connues! 
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BAT MAN 

(Amstrad CPC) 



Après superman et Spiderman, Bat- 
man, héros de comic's américain, ac¬ 


cède à la postérité informatique. Le Jo¬ 
ker a capturé son copain Robin. Avant 
de partir à sa recherche, Batman doit 
réassembler son batcraft (son véhicule) 
dont les pièces ont été éparpillées par 
les comparses de Joket dans des cata¬ 
combes mortelles. 

Pour démarrer sa véritable quête, il doit 
récupérer ses «bottes de sept lieux», 
son sac, son propulseur horizontal et sa 
ceinture de gravité. Décors, sprites et 
animation sont au-dessus de la 
moyenne. Le jeu ressemble à Crafton, 
mais il n’en possède pas la magnifi¬ 
cence des couleurs. L’action se situe 
au travers de 150 salles et des sauve¬ 


gardes successives permettent de ne 
pas recommencer le jeu au début. 
Edité par Océan, 110F. 

Vu chez Coconut. 
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REDHAWK 

(Amstrad CPC) 


L’Amstrad est décidément l’un des 
théâtres d’opérations privilégiés des 
super-héros. Redhawk, un autre de 
ces phénomènes, alter ego de Kevin 
Oliver (homme tout à fait ordinaire) peut 
devenir un sauveur de l’humanité ou un 
infâme criminel. Trois images d'une 
bande dessinée sont présentes en 
permanence à l’écran. Cette bande 
s’enroule au fur et à mesure de l’action. 
La force de Redhawk croît en fonction 
de sa popularité, elle-même liée à ses 
bonnes actions. Il redevient Kevin 
quand sa puissance est affaiblie. Un lo¬ 
giciel Melbourne House à découvrir, 
180 F. 


HOLE IN ONE 

(Standard MSX 



Holein One, qui date un peu, mérite ce¬ 
pendant un petit détour. De même que 
Golf Construction Set (test Micro V.O. n° 
8), Hole in One propose un parcours de 
golf et offre la possibilité aux joueurs de 
créer leurs propres «pars». Le gra¬ 
phisme est clair et de qualité. Trois cri¬ 
tères simplifient le jeu : club, force d’im¬ 
pact et emplacement de la frappe sur la 
balle. La frappe sur la balle aura pour in¬ 
cidence de lui donner plus ou moins 
d’effet, à droite, à gauche, ou pas du 
tout. La construction d’un «par» est 


plus facile que celle de Golf Construc¬ 
tion Set. Hole in One ne possède toute¬ 
fois pas toutes les options du logiciel 
Commodore (états du terrain, humidité, 
vents...). 

Edité parHAL, 180 F. 



CORE 

(Commodore 64/128) 



« Les murs sont inamovibles, excepté 
quand ils le sont! » Extrait d’un dossier 
top secret (manuel pour commandeur 
galactique). La mission est simple: re¬ 
trouver tous les éléments de la « mé¬ 
moire originelle» et les transmettre au 
vaisseau-mère pour analyse. Le jeu 
peut être sauvegardé en cours de par¬ 
tie à condition de trouver une cassette 
et un micro. Mais non, je ne délire pas, 
Core est un jeu d’aventure-action. Le 
bouton fire permet de tirer lorsque l’on 
a trouvé le pistolet. Toutes les actions 
sont commandées au joystick, c’est- 
à-dire essentiellement les déplace¬ 
ments et prises d’objets. Bon courage ! 
Edité par A’n’F, 130 F. 

Vu chez Coconut. 


Robin of Sherlock est un jeu 
d’aventure ayant pour cadre la 
célèbre forêt de Sher. Quoi! 
Bon, la forêt de Sherwood si 
certains anglicistes préfèrent. 
Bourré d’humour et de gags, le 
logiciel convie Sherlock Robin 
à démêler les mystères les plus 
farfelus. Il croisera aussi bien 
une prise de courant qu’un 
éléphant. Si une envie 
pressante le prend, de vieilles 
toilettes ou des toilettes 
dernier cri feront son affaire. Le 
parking, la maison des trois 
ours ou le rocher mystique sont 
autant de lieux où il devra 
mettre son cerveau en 
ébullition. Edité par CRL, 

150 F. 




ROBIN 

OFSHERLOCK 

(Amstrad CPC) 
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BOREDOFTHE RINGS 

(Commodore 64) 



«Ras le bol de ces anneaux», c’est à 
peu près le sens du titre. Je vois d’ici la 
tête du rédacteur en chef (fan de Tol- 
kifen). On retrouve des personnages 
bien connus (MVO n° 8, Lord of the 
Rings): Fordo, son oncle Bimbo, Gran- 
dalf le Gris, etc. Fordo le lobbit, qui ne 
pense qu'à manger, contemple l’an¬ 
neau de son oncle. L’apparition des ca- 



routard galactique» seront 
conquis par The Hitchhikers 
Guide of the Galaxy. 
Ce jeu sur Commodore 64 
est en effet inspiré du livre. 
Edité par Infocom, 190F. 
Vu chez Coconut. 


valiers noirs aux yeux de braise se ren¬ 
dant à un cocktail réveille son appétit 
féroce. Vite il se mêle à eux. Boredofthe 
Rinqest un superbe pastiche. Edité par 
CRL, 130 F. 

MERCENARY 

(Commodore 64) 



Mercenary est encore unique en son 
genre. Ce logiciel allie simulation de vol 
et jeu d'aventure-action. Les décors 
sont en fil de fer (arêtes des différents 
bâtiments, structures de ponts, etc.). 
La phase de vol ressemble à celle de 
Flight Simulator pour les décors. L’atte¬ 
rissage est, bien entendu, possible. 
Les grandes artères d’une ville peuvent 
servir de piste. Attachez votre ceinture 
et accrochez-vous bien. Le pilote peut 
quitter son appareil ! Là commence le 
jeu d’aventure à travers rues et édifi¬ 
ces... Edité par Novagen, 130 F. Vu 
chez Coconut. 


BOUNDER 

(Commodore) 



Boundere st de très, très loin une sorte 
de Boulder dash. Cela donne une idée 
de la place qu’il prendra sur l’étagère. 
Bounder est une balle de tennis qui re¬ 
bondit sur des cases qui parsèment 
l’écran. Grises, elles sont bénéfiques, 
les autres sont fatales, contournez-les. 
Les dalles fléchées permettent de res¬ 
ter en l’air plus longtemps, donc de re¬ 
bondir plus loin. D’autres dalles, en 
point d’interrogation, offrent de mysté¬ 
rieuses primes plus ou moins bonnes. 
Edité par Gremlin Graphics, 110 F. Vu 
chez Coconut. 


BAT MAN 

Graphisme : 


Bruitage : 

• • 

Intérêt : 


REDHAWK 

Graphisme 

• • • • 

Bruitage : 

• • 

Intérêt 

• • • • 

CORE 

Graphisme : 

• • • • 

Bruitage : 

• • • 

Intérêt : 

• • • • 

MERCENARY 

Graphisme 


Bruitage : 

• • • 

Intérêt : 

• • • • 

HOLE IN ONE 

Graphisme : 


Bruitage : 

• • • 

Intérêt 

• • • • 

BORED 

OF THE RINGS 

Graphisme : 

non 

Bruitage : 

non 

Intérêt : 

• • • • 

BOUNDER 

Graphisme : 

• • • • 

Bruitage : 

• • • 

Intérêt : 

• • • • 

ROBIN 

OFSHERLOCK 

Graphisme : 

• • • • 

Bruitage 

• • 

Intérêt : 


THE 

HITCHHICKER’S 

GUIDE OF THE 
GALAXY 

Graphisme : 

non 

Bruitage 

non 

Intérêt 



Rubrique réalisée 
par Yves Huitric 
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LE MAGAZINE DE LA MICRO PASSION 


SEULEMENT 
160 


mmm. 


| Nom. 


Prénom _ 
Adresse. 


Code postal l 
Signature 


1 


Mode de règlement: 

Chèque à l’ordre de MICRO V.O. 


Remplissez et renvoyez ce bulletin à : 

MICRO V.O., Service abonnements 
31, cours des Juilliottes 
BP 89 - 94703 M.-Alfort Cedex 

(Pour l’étranger, nous consulter) 


10 NUMEROS 
pour 160 F au lieu de 200 F 


MVO 786 















SONARSEARCH 

(Commodore 64) 



S ONAP 

sefipcH 

1. CRS un 

2. LICUTCRMT 
S. CONNRNOC» 

4. CAPTAI* 

mu# mrcTioN ■ 


La série des logiciels submersibles, interrom¬ 
pue le mois dernier, continue. J’emporte mon 
scaphandre pour les vacances. Réseau Plané¬ 
taire, 150 F. 


WINTERGAMES 

(CBM,CPC) 



UTVTERGU1ESI 


Encore une adaptation. PourCPC, les décors et 
les paysages sont de qualité supérieure. En re¬ 
vanche, l’animation est médiocre. Epyx, 180F. 
Vu chez Ultima. 


BRIDGE PLAYER 3 

(Amstrad CPC) 



Toutes les machines avaient leur bridge, Ams¬ 
trad a maintenant le sien. Tous ces logiciels 
n’attendent plus qu’un test. CP Software, 
140 F. Vu chez Ultima. 


PILGRIM 

(Commodore 64) 



Le sous-titrage est éloquent: « Un terrifiant jeu 
d’aventure textuel ». Entrez dans le Pays du Mi¬ 
lieu pour vous en rendre compte. CRL Group, 
120 F. Vu chez Coconut. 


JUNGLEJANE 

(Amstrad CPC) 



Arcade, et pas des meilleurs! Je ne pensais 
pas qu’on en éditait encore de si peu passion¬ 
nant. Ne passez pas par la jungle, faites un dé¬ 
tour. Minipuce, 120F. 


EGGERLAND 

(Standard MSX 



Au pays des œufs, attention à ne pas faire 
d’omelette (d’ailleurs, il n’y a pas d'œufs). Jeu 
d’arcade amusant. On en fait malheureuse¬ 
ment vite le tour. TTC. 120F. 

REVERSI CHAMPION 

(Amstrad CPC) 



C'est l’adaptation du célèbre jeu de tactique.. 
Une bibliothèque de 4000 ouvertures et six ni¬ 
veaux de difficulté font toute la qualité du soft. 
Loriciels, 150 F. 


L’AIGLE D’OR 

(amstrad CPC) 



Enfin une adaptation de l'Aigle d'or, primé en 
son temps, très attendue. Bien qu'un peu vieilli, 
ses fans l’achèteront ne serait-ce que comme 
pièce de collection. Loriciels, 160 F. 

ZOIDS 

(Commodore 64) 


A des années lumières se trouve l'étoile de 
Zoïd. Sa surface désertique et rocheuse sera le 
théâtre de combats dantesques. Martech, 
94 F. Vu chez Coconut. 


SUPER PAC 

(Amstrad CPC) 



Un Pacman venant d’une société bien meil¬ 
leure quand il s’agit de faire des programmes 
utilitaires (gestion de fichiers, bases de don¬ 
nées...). BY Soft, 199F. 


INTERNATIONAL KARATE 

(Spectrum, CBM, CPC, Atari) 



Un nouveau karaté, avec des décors encore 
plus réussis, quelle que soit la machine. Le per¬ 
sonnage évolue suivant seize figures. Système 
3, 150F. Vu chez Ultima. 
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RETURN OF THE SPACE 
WARRIOR 

(Commodore 64/128) 



Tout autour, c’est le chaos. Les œufs d’où vont 
sortir des êtres monstrueux vont bientôt éclore. 
Vous savez ce qu’il vous reste à faire. Alpha- 
Omega, 110F. 


MEURTREAGRANDE 


VITESSE 

(Exelvision) 



Dans la famille adaptation, en voici une pour 
Exelvision ! Les EXL100 sont-ils donc si répan¬ 
dus? On retrouve tous les indices dans le cof¬ 
fret. Cobra Soft, 150 F. 



Krafton(MVO n° 6), n° 1 en France, a 
conquis l’Angleterre où il est en passe de 
devenir le leader. Enfin un Français qui a su 
s’exporter! Une histoire à suivre avec 
Ere Informatique. 


AMIGA... AIE, AIE, AIE ! 


Il y a deux mois, nous vous présentions 
The Pawn en avant-première et quel¬ 
ques autres logiciels pour l’Atari ST. 
Les premiers logiciels de l’Amiga sont 
maintenant arrivés. Mais quelle dé¬ 
ception! Il ne s’agit que d’adapta¬ 
tions. De plus celles-ci se sont intro¬ 
duites à l’intérieur de l’Amiga comme 
s’il s’agissait d’un Commodore 64. 
Electronic Arts, le principal éditeur 
ayant une gamme de logiciels Amiga, 
n’a fait aucun effort pour utiliser les 
capacités du 512 K. 




Pinpall Construction Set 


Archon 



Return to A tlantis 


Skyfox 


Marble Madness 
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Amateurs de sensations fortes, 
faites-vous parachuter aux 
portes de Xebec Demise. 
Alternate Realityoffre dans 
cette Cité une aventure sans 
quête où survivre dépendra du 
tempérament de chacun. 

Iternate Reality est un jeu 

d’aventure. On ne peut faire plus 
bref comme introduction! Le 
coffret sera tout aussi rapidement dé¬ 
crit. C’est un coffret en plastique à deux 
volets contenant deux disquettes et 
une feuille format poster faisant office 
de manuel. 

Drive ON, micro ON, Disk 1 side 1 placé 
dans l'unité de disquette, 
L0AD“*”,8,1 (Commodore) et c’est 
parti. 

Une ville apparaît sur l'écran. Un vais¬ 
seau spatial la survole en tirant avec 
une sorte de rayon laser. Puis vient le 
générique, simple mais digne des 
meilleurs films de science-fiction. Du 
vrai cinéma! Enfin un menu s’affiche. 


Pas de pot, j’ai seulement appris le la¬ 
tin, le grec, l’italien et l’allemand à 
l’école. Des vacances en Espagne 
m'ont bien donné quelques rudiments 
d’espagnol, mais alors pour l’anglais 
macache! Je secoue le coffret pour 
trouver la notice en français. Rien ! 
Revenons au menu. Tout d'abord ini¬ 
tialisez une disquette sur laquelle se¬ 
ront sauvegardés les personnages 
créés. S’ils meurent en cours d’aven¬ 
ture, ils pourront ainsi repartir pour une 
nouvelle quête. Toutes les caractéris¬ 
tiques nécessaires à la création d’un 
personnage sont réunies: charisme, 
force intelligence, sagesse, points de 
vie, pièces d’or, etc. Enfin, il est possi¬ 
ble de démarrer tout de go avec un per¬ 
sonnage non sauvegardé. 

Un seul personnage est autorisé à 
jouer. Les déplacements s’effectuent à 
l’aide du joystick ou du clavier. Pour en¬ 
trer dans une boutique ou passer une 
porte, il suffit de pousser la manette 
vers le haut, vers le bas pour en sortir. 
Après insertion de la disquette 2, 
l’aventure commence. Il n’y a pas vrai¬ 
ment de quête au départ. C’est au 
joueur de s’en trouver une, et surtout 
de survivre. Sur la partie supérieure de 
l’écran s’affichent les caractéristiques 
du personnage. Au centre de l'écran, le 
décor est dessiné (la cité de Xebec De- 
mise). Enfin, dans la partie inférieure, 
certaines indications s’inscrivent (au¬ 
tres personnages rencontrés, lieux, 
objets...). Dès le départ, rencontre avec 
un marchand. Différentes réactions 
sont alors suggérées: charme, at¬ 
taques, sorts, etc. Si le combat s’en¬ 




gage et que la mort s’ensuit, aucune 
touche malheureusement ne permet 
de revenir au menu! Il faut éteindre le 
micro et recharger le jeu. 

Décrivons un peu la ville, les êtres qui la 
peuplent et les objets à découvrir. 

La City: 7 hôtels (endroits ou l’on re- 
ceuille, entre autres, diverses informa¬ 
tions), 14 tavernes (certaines vendent 
de l’alcool), 3 banques, 15 magasins. 
Les êtres: des coursiers (ils portent les 
messages), des «poors» (des êtres 
sans ambitions), des «communs» (in¬ 
dividus sans spécialité), des gladia¬ 
teurs, des gardes, des voleurs, des 
magiciens, des marchands, des as¬ 
sassins... 

Les objets: diverses potions (béné¬ 
fiques ou maléfiques), des armes (pour 
survivre), des joyaux, de la nourriture... 
Alternate Reality est un jeu d'aven¬ 
ture simple de par l’absence de texte à 
écrire et grâce aux nombreuses infor¬ 
mations affichées en permanence. 
Une lettre témoin clignotante permet 
de savoir ce qu’il faut taper au clavier 
pour entreprendre telle ou telle action. 
Les graphismes sont simples mais réa¬ 
listes comme l’animation. Edité par US 
Gold, 190 F (Atari, Commodore, Ap¬ 
ple). Vu chez Coconut. 


Accessibilité 

12 ans (anglais) 

Animation 

6/10 

Graphisme 

6/10 

Bruitage 

5/10 

Musique 

7/10 

Intérêt 

8/10 

Qualité/prix 

8/10 (disquette) 
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Moi, je rêve 


d’un métier qui 


me passionne 


I Si je décide aujourd’hui d’apprendre 
un métier, 

un métier qui me plaise 
! et un métier d avenir 



_METIERS PREPARES NIVEAU_ 

Initiation à l’informatique 0 Accessible à tous 

Secrétaire opératrice sur micro-ordinateur 0 4 e /3 e 

Programmeur sur micro-ordinateur 0 3 e /CAP 

Assistant(e) en informatique 2 e /1 re 

Opérateur(trice) sur ordinateur 4 e 

Informatique pour les métiers comptables 0 3 6 /bepc 

Programmeur 2VT 


DUREE 


Technicien de maintenance 

Analyste programmeur sur micro-ordinateur 

Analyste programmeur 

Analyste 

Programmeur PTT (prép. au concours) 0 
Pupitreur PTT (prép. au concours) 

BTS informatique* 


S Compétence supplémentaire indispensable 
0 Métier en pleine expansion 
* Préparation aux examens 


PRIORITE A LA FORMATION 

2.000 entreprises de toutes tailles prennent en charge chaque 
année pour leur(s) salarié(s) une formation EDUCATEL. 

« Si vous êtes salarié(e), possibilité de suivre votre étude dans 
le cadre de la Formation Professionnelle Continue». 


Terminal/Bac 


BAC + 2 


7 

mois 

7 

mois 

10 

mois 

11 

mois 

10 

mois 

12 

mois 

13 

mois 

14 

mois 

16 

mois 

21 

mois 

10 

mois 

11 

mois 

7 

mois 

33 

mois 


£ iL J’ai envie d’apprendre un métier qui 
w W bouge, un métier moderne. Je ne veux 
pas d’un métier d’hier. Je ne veux pas me retrou¬ 
ver dans 5 ans avec une qualification dépassée 
et l’impossibilité de la faire évoluer. Actuellement, 
d’après ce que j’entends dire par tout le monde, 
c’est qu’il y a 2 grands secteurs de pointe : l’Infor¬ 
matique et l’Electronique. Ce sont des secteurs 
créateurs d’emploi et moi les nouvelles techni¬ 
ques ça me passionne. En plus, même avec mon 
niveau d’études (je me suis arrêté à la seconde), 
je peux trouver un métier qui me convienne. 
Comme je suis fermement décidé à faire les 
efforts qu’il faut, je suis sûr que j’y arriverai. Je 
sais qu’à EDUCATEL, ils proposent pas mal de 
formations dans ces secteurs qui m’intéressent et 
qu’ils commencent par donner toutes les informa¬ 
tions gratuites dont j’ai besoin, tant sur les métiers 
que sur ce que moi je peux personnellement envi¬ 
sager. Alors, aujourd’hui, c’est décidé, V ^ 
je demande une documentation. ^ ^ 


» 



Educatel 


G.I.E. Unieco Formation - Groupement d’écoles spécialisées 
Etablissement privé d’enseignement par correspondance 
soumis au contrôle pédagogique de l’Etat 

EDUCATEL -1083, route de Neufchâtel - 3000 X - 76025 ROUEN CEDEX 


Ne choisissez pas votre métier 
avant d’avoir demandé 
une documentation à Educatel 


[Bon pour une documentation gratuite 

_ OUI, je souhaite recevoir sans aucun engagement Ê 

| une documentation complète sur le métier qui m’intéresse. 

I M. □ Mme □ Mlle □ 

NOM .Prénom. 

| Adresse : N° .Rue.. 

I Code postal I I I I I I Localité. 

Téléphone domicile.Téléphone travail. 

I Pour nous aider à mieux vous orienter, merci de nous donner tous les renseignements ci-dessous : 

Age.(il faut avoir au moins 16 ans pour s'inscrire) - Niveau d’études. 

I Si vous travaillez, quelle est votre profession ?.. 

® Dans ce cas, êtes-vous intéressé(e) par la formation continue? □ Oui □ Non 
| Si vous ne travaillez pas, vous êtes : □ Etudiant(e) □ A la recherche d’un emploi 

Merci de nous indiquer ^ Av* 

le métier qui vous intéresse Ç\l' 

I choisi dans la liste ci-dessus : WL _ 

Renvoyez-nous ce Bon dès aujourd’hui sous enveloppe à l’adresse suivante ^ XoXa? . 

I EDUCATEL - 3000 X - 76025 ROUEN CEDEX ,XXV?/XX 

■ Pour Canada, Suisse, Belgique: 49, rue des Augustins, 4000 Liège (Belgique) 

| Pour DOM-TOM et Afrique: documentation spéciale par avion. X 


MI7029 


















DANS L’ANGLETERRE DU XV* SIÈCLE... 

UNE ENQUÊTE POLICIÈRE... 

DANS UN CLIMAT SURNATUREL DE TERREUR... 


<%> 


Pour la première fois, UN JEU DE RÔLE EN FRANÇAIS, vous donne des possibilités que vous n’osiez 
espérer... La richesse des caractéristiques de votre personnage fera naître en vous un véritable héros ! 


rum 

F SoFK 


Sc Fhjuore 


19, Allée des Saules 
78480 VERNEUIL-SUR-SEINE 
Tél. (1) 39 71 16 84 


Disponible dans votre magasin habituel 
DISTRIBUTEURS, contactez-nous 
AUTEURS. PROGRAMMEURS, 
demandez Jean-Marc 


G 


























